построить алгоритм и написать программу вычисления значения функции на языке Qbasic

X=(EXP(-X1)-EXP(-X2))/2 И Z=(A*SQRT(X1)-B*SQRT(X2))/C ,ГДЕ

X1=(B+SQRT(ABS(B^2-4*A*C))/(2*A);
X2=(B-SQRT(ABS(B^2-4*A*C))/(2*A)
программа

REM вычисление значения функции
INPUT "A,B,C";A,B,C
IF A=0 THEN PRINT функция не определена
ELSE
X1=(B+SQRT(ABS(B^2-4*A*C))/(2*A)
X2=(B-SQRT(ABS(B^2-4*A*C))/(2*A)
X=(EXP(-X1)-EXP(-X2))/2
PRINT "X=";X
END IF
IF C=0 THEN PRINT функция не определена
ELSE
Z=(A*SQRT(X1)-B*SQRT(X2))/C
PRINT "Z=";Z
END IF
END

1. Текстовые константы всегда в кавычки берутся. В том числе и те, которые в операторах PRINT.

2. В выражениях для X1 и X2 закрывающей скобки не хватает. (Кстати, там перед B "минуса" случайно нет по условию?..)

3. Тела блоков THEN / ELSE нужно с новой строчки начинать: