Решить систему уравнений - QBasic (28401)

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

Помогите пожалуйста решить систему уравнений 0,23y^2+1,65sinx при y<0 z= 0,06y+0,3 lnx^3 при y>0 cos 2,8x+2,4 e^(2x) при y=0

забыл дописать если y=2x+6,4^x

Решение задачи: «Решить систему уравнений»

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

10 CLS
   INPUT "X", X
30 Y = 2 * X + 6.4 ^ X
IF Y < 0 THEN GOTO 50 ELSE IF Y > 0 THEN GOTO 60 ELSE IF Y = 0 THEN GOTO 70
50 Z = .23 * Y ^ 2 + 1.65 * SIN(X)
60 Z = .06 * Y + .3 * LN(X ^ 3)
70 Z = COS(2.8 * X) + 2.4 * EXP(2 * X)
PRINT Z
END

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

Объявлены переменные X, Y, Z, SIN, COS, EXP, LN
Введен ввод данных с помощью INPUT X, X
Переменная Y вычисляется как 2*X+6.4^X
С помощью условного оператора IF проверяется значение переменной Y: если Y<0, то выполняется переход на 50 строку, если Y>0 - на 60, если Y=0 - на 70
Если условие в IF не выполняется, то вычисляется значение переменной Z как .23Y^2+1.65SIN(X)
Если условие в IF не выполняется, то вычисляется значение переменной Z как .06Y+.3LN(X^3)
Если условие в IF не выполняется, то вычисляется значение переменной Z как COS(2.8X)+2.4EXP(2*X)
Выводится значение переменной Z с помощью PRINT Z
Программа завершается