10 PRINT "IF IT WRITES 'ERROR ON LINE 40' THE EQUATION HAS NO SOLUTION"
20 INPUT "ENTER COEFFICIENTS A, B, C", A, B, C
30 R=B*B-4*A*C
40 X1=(-B+SQR(R))/2/A
50 X2=(-B-SQR(R))/2/A
60 PRINT "X1="; X1; "X2="; X2
70 END