INPUT "a="; a 'Начало отрезка
INPUT "b="; b 'Конец отрезка
INPUT "h="; h 'Шаг
x = a
WHILE x <= b<br> PRINT "x="; x, "y=";
SELECT CASE x
CASE -2 TO 2
PRINT x * x - 1
CASE ELSE
IF x >= 1 THEN
PRINT SQR(x - 1)
ELSE PRINT "Не существует"
END IF
END SELECT
x = x + h
WEND