#8809: pascal gaicuo


lsyyw2002 (袁祎炜)


var  

a,b,c,ans1,ans2:real;

begin  

readln(a,b,c);    

if -1*b/2*a<0 then write('No real root');    

if -1*b/2*a=0 then begin    

ans1:=(-1*b+ sqrt(b*b-4*a*c))/2*a;    

write ('Two same roots x=',ans1:0:0);    

end;    

if -1*b/2*a>0 then begin

      ans1:=(-1*b+ sqrt(b*b-4*a*c))/2*a;      

ans2:=(-1*b- sqrt(b*b-4*a*c))/2*a;    

  write('Two different roots x1=' , ans1:0:0  , ' , ' , 'x2=' , ans2:0:0);    

end;    

readln;

end.