PROGRAM QUAD(input,output);   { ===== Quadratic Equation ===== }
VAR a, b, c, d, x, x1, x2, rp, ip:  REAL;
BEGIN
 WHILE NOT(EOF) DO BEGIN
   READ (a, b, c);
   WRITELN (a:8:1, b:8:1, c:8:1);
   IF a <> 0 THEN
    BEGIN
       d := SQR(b) - 4*a*c;
       IF d >= 0 THEN
           BEGIN  { Real Roots }
           d := SQRT (d);
           x1 := (-b+d)/(2*a);
           x2 := (-b-d)/(2*a);
           WRITELN ('REAL ROOTS', x1:8:4, x2:8:4)   END
         ELSE
           BEGIN  { Complex Roots }
           rp := -b/(2*a);
           ip := SQRT(-d)/(2*a);
           WRITELN ('COMPLEX ROOTS', rp:8:4, ip:8:4)   END;
       END ELSE
   IF b <> 0 THEN
       BEGIN  { Linear Case }
       x := -c/b;
       WRITELN ('LINEAR EQUATION', x:8:4);
     END
     ELSE  { Faulty Data }
       WRITELN ('NO SOLUTION!')
 END
END.