#bas
CLS
INPUT "a,b,c"; a, b, c
D = b ^ 2 - 4 * a * c
e = SQR(D)
IF D > 0 THEN x1 = (-1 * b - e) / (2 * a): x2 = (-1 * b + e) / (2 * a): PRINT "x1="; x1: PRINT "x2="; x2
IF D = 0 THEN x = (-1 * b - e) / (2 * a): PRINT "x="; x
IF D < 0 THEN PRINT "No Roots!"
SLEEP