---

Sub Lab24_Variant7()
    Dim x As Double
    Dim y As Double
    Dim row As Integer
    
    ' Начальная строка для вывода в Excel
    row = 1
    Cells(row, 1).Value = "x"
    Cells(row, 2).Value = "y"
    
    ' Цикл от -25 до 57 с шагом 4
    For x = -25 To 57 Step 4
        row = row + 1
        
        ' Вычисление функции y в зависимости от x
        If x < 10 Then
            y = x + 2
        ElseIf x >= 10 And x <= 20 Then
            y = Sqr(2 * x)
        Else
            y = 3 - (x ^ 2)
        End If
        
        ' Вывод результата в таблицу Excel
        Cells(row, 1).Value = x
        Cells(row, 2).Value = y
    Next x
End Sub