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