program quadratic ;
 uses crt;
 var
 a,b,c :integer;
 x, ImX1, ImX2, ReX1, ReX2, d:real;

 begin

 writeln ('a b c') ;
 readln(A,B,C);
 if a=0 then
 if b=0 then
 if c=0 then writeln ('0=0, x R')
 else writeln ('no solution')
 else
 begin
 x := -c/b ;
 writeln ('x = ', x:0:2) ;
 end
 else
 begin
 D := b*b-4*a*c ;
 if d>=0 then
 begin
 ReX1 := (-B+sqrt(D))/2/a ;
 ReX2 := (-B-sqrt(D))/2/a ;
 writeln ('X1 = ', ReX1:0:2) ;
 writeln('X2 = ', ReX2:0:2)
 end
 else
 begin
 ReX1 := -b/2/a ;
 ImX1 := sqrt(abs(D))/2/a ;
 ReX2 := ReX1 ;
 ImX2 := -ImX2;
 writeln ('ReX1 = ', ReX1:0:2) ;
 writeln ('ReX2 = ', ReX2:0:2);
 writeln ('ImX1 = ', ImX1:0:2);
 writeln ('ImX2 = ', ImX2:0:2);
 end ;
 end;
 readln;
 end.