DIM x, y
INPUT "Введите число: ", x
IF x < 0 THEN
y=0
else if х>1 then
y=1/x
else
y=x^2
END IF
PRINT y
DIM x, y
INPUT "Введите число: ", x
IF x < 0 THEN
y=0
else if х>1 then
y=1/x
else
y=x^2
END IF
PRINT y