Qbasic. Условия. Квадратные уравнения

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

Программа решает самые простые квадратные уравнения, первый раз написал ее безо всяких условий и проверок, все работало на ура! А уж если дискриминант выходил отрицательным просто писалось 0. Решил поставить проверку, как я ее сделал: IF D > 0 THEN GOTO 10 ELSE PRINT "Diskremenant otricatelniy, dalneeushee vicheslenie privedet k nylevomy rezyltaty" GOTO 20. После добавления этого условия программа начала любой дискриминант считать отрицательным. Ищу помощи на этом форуме Подскажите что не так? Полный код:

                    Листинг программы
                
 
                        
                          
                    
REM Programma reshaet prostie kvadratnie yravneniya
D = (b(1) * b(1)) - 4 * a(1) * c(1)
x1 = (-b(1) + SQR(D)) / 2 * a(1)
x2 = (-b(1) - SQR(D)) / 2 * a(1)
SLEEP 1
20 CLS
INPUT "vvedite a:", a(1)
INPUT "vvedite b:", b(1)
INPUT "vvedite c:", c(1)
CLS
PRINT "Ok.... proverka...."
SLEEP 2
PRINT "a ="; a(1)
PRINT "b ="; b(1)
PRINT "c ="; c(1)
SLEEP 2
PRINT "vichesliaem diskremenant po formyle"
SLEEP 1
IF D > 0 THEN
GOTO 20
ELSE PRINT "Diskremenant otricatelniy, dalneeushee vicheslenie privedet k nylevome rezyltaty"
GOTO 30
END IF
20 PRINT "D ="; D
SLEEP 2
CLS
PRINT "D ="; D
PRINT "Vichesliaem x1 i x2"
SLEEP 2
CLS
PRINT "Gotovo!"
SLEEP 1
PRINT "D ="; D
SLEEP 1
PRINT "x1 ="; x1
SLEEP 1
PRINT "x2 ="; x2

Решение задачи: «Qbasic. Условия. Квадратные уравнения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
PRINT "ВВЕДИТЕ ЧИСЛО ПЕРЕД Х КВАДРАТ"
INPUT A
PRINT "ВВЕДИТЕ ЧИСЛО ПЕРЕД Х"
INPUT B
PRINT "ВВЕДИТЕ ЧИСЛО БЕЗ Х"
INPUT C
D = B ^ 2 - (4 * A * C)
IF D < 0 THEN PRINT "ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ. КОРНЕЙ НЕТ": END
X1 = (-(B) + SQR(D)) / 2 * A
X2 = (-(B) - SQR(D)) / 2 * A
PRINT "Х="; X1
PRINT "ИЛИ="; X2