Вычисление значении функции - QBasic

Формулировка задачи:

Здравствуйте, помогите вычислить значение функции в QBasic: Заранее, большое спасибо.

Решение задачи: «Вычисление значении функции»

Листинг программы

CLS
INPUT "X = "; x
 
IF x >= 8 THEN
   y = -x ^ 2 + x - 9
ELSE
   IF x ^ 4 - 6 <> 0 THEN
      y = 1 / (x ^ 4 - 6)
   ELSE
      PRINT "FUNCTION NEOPREDELENA"
      GOTO 100
   END IF
END IF
PRINT "Y ="; y
100
END

Объяснение кода листинга программы

В этом коде:

Сначала пользователю предлагается ввести значение переменной x.
Затем выполняется проверка: если x больше или равно 8, то выполняется блок кода с вычислением значения переменной y с использованием формулы -x ^ 2 + x - 9.
Если x меньше 8, то выполняется проверка: если x в четвертой степени меньше 6, то выполняется блок кода с вычислением значения переменной y с использованием формулы 1 / (x ^ 4 - 6).
Если x в четвертой степени равно 6, то выводится сообщение FUNCTION NEOPREDELENA.
Иначе, выводится значение переменной y.
В конце, выводится значение переменной y. Примечание: в коде есть одна ошибка, которая не позволит его выполнить корректно. Это отсутствие оператора END IF после первой проверки IF.