Для произвольных a,b,c определить, имеет ли уравнение ax^2+bx+c=0 хотя бы одно вещественное решение- QBasic(Бейсик)

CLS
INPUT "Vvedite koef a:"; a
INPUT "Vvedite koef b:"; b
INPUT "Vvedite koef c:"; c
IF a = 0 AND b = 0 AND c <> 0 THEN PRINT "Korney net": END
IF a = 0 AND b = 0 AND c = 0 THEN PRINT "Korni est": END
IF a = 0 AND b <> 0 THEN PRINT "Korni est": END
IF (b ^ 2 - 4 * a * c) < 0 THEN PRINT "Korney net" ELSE PRINT "Korni est"