Sub mag()
Dim x As Double, a As Double, b As Double
MsgBox "Lr 4 V¹11 P-16-51 Rudenko"
MsgBox "Zadacha"
x = InputBox("enter x")
a = InputBox("enter a")
b = InputBox("enter b")
If a > 10 And a < 20 And b > 100 And b < 200 And x > 1 And x < 5 Then
Y = a * x ^ 2 + b * x
MsgBox "Y = " & Y
End If
MsgBox "Nevirno vvedeno"
Worksheets("Sheet1").Range("E1").Value = Y
MsgBox "Y = E1"
End Sub