---

Sub Task1()
    Dim x As Double, y As Double
    Dim res As String
    res = "Результаты (Вариант 1):" & vbCrLf
    
    For x = 6 To 20 Step 0.5
        y = Sin(x)
        res = res & "x=" & x & "  y=" & Round(y, 4) & vbCrLf
    Next x
    
    MsgBox res
End Sub