Решить квадратное уравнение -QBasic(Бейсик)

CLS
INPUT "vvedite a", a
INPUT "vvedite b", b
INPUT "vvedite c", c
d = b ^ 2 - 4 * a * c
IF d>0
PRINT "x1 = "; (-b - SQRT(d)) / (2 * a)
PRINT "x2 = "; (-b + SQRT(d)) / (2 * a)
ELSE
IF d=0 THEN "x= "; (-b ) / (2 * a)
ELSE
PRINT "net kornei"
END IF
END IF
END