zadach214.BAS

{* Задача214 *}

REM basic

' Функция для X<0 описывается уравнением Y=-X, а для X>=0 уравнением Y=Х^2.
' Введите Х и определите Y.


CLS
INPUT "Введите x: ", x
If x < 0 Then Y = -x Else Y = x ^ 2
PRINT "y ="; Y
End