построить алгоритм и написать программу вычисления значения функции на языке 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