#10488: __ac


xujieyi2003 (华二 徐介已)


var
  a,b,c,x,x1,x2,xc:real;
begin
  while not eof do begin
    readln(a,b,c);
    if sqr(b)-4*a*c>0 then begin
      x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
      x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
      write('Two different roots ');
      if x1<x2 then begin
        xc:=x1;
        x1:=x2;
        x2:=xc;
      end;
      writeln('x1=',x1:0:0,' , x2=',x2:0:0)
    end;
    if sqr(b)-4*a*c=0 then begin
      x:=-(b/(2*a));
      if x=-0 then x:=0;
      writeln('Two same roots x=',x:0:0);
    end;
    if sqr(b)-4*a*c<0 then writeln('No real root');
  end;
end.