CLS
WHILE 1
INPUT "A=", a
INPUT "B=", b
INPUT "C=", c
det = (b ^ 2 - 4 * a * c)
IF det >= 0 THEN
PRINT (-b + SQR(det)) / (2 * a)
PRINT (-b - SQR(det)) / (2 * a)
ELSE
PRINT "NO REAL ROOTS"
END IF
WEND