Программа

INPUT "Введите X ", x       'Ввод X
IF x >= 1 THEN  'Выбор формулы
  y = x / (1 + x)
ELSE
  y = x / (1 - x)
END IF
PRINT "y="; y 'Вывод результата