program test(input,output); var a,b,c,d,x,y:real; begin read(a,b,c); while a<>0 do begin writeln; writeln('a=',a:15, 'b-',b:15, ' c=', c*15); d:=b*b-4*a*c; if d>=0 then begin x:=(-b+sqrt(d))/(2*a); y:=(-b+sqrt(d))/(2*a); writeln('real roots'); writeln('x1=',x:15, ' x2=', y:15) end else (* d<0 *); begin x:=-b/(2*a); y:=sqrt(-d)/abs(2*a); writeln('complex roots'); writeln('x1,x2=',x:15, ' +- I*', y:15) end; read(a,b,c) end end.