---

Sub Task7()
    Dim x As Double, y As Double
    Dim res As String
    res = "Результаты (Вариант 7):" & vbCrLf
    
    For x = -25 To 57 Step 4
        If x < 10 Then
            y = x + 2
        ElseIf x >= 10 And x <= 20 Then
            y = Sqr(2 * x)
        Else
            y = 3 - x ^ 3
        End If
        res = res & "x=" & x & "  y=" & Round(y, 2) & vbCrLf
    Next x
    
    MsgBox res
End Sub