var
   a,b,c : integer;
   d,x1,x2 : real;
 begin
  writeln ('ax^2+bx+c=0');
  readln (a,b,c);
  d := sqr (b) - 4 * a * c;
   if d > 0 then
    begin
     d := sqrt (d);
     x1 := (-b + d)/(2*a);
     x2 := (-b - d)/(2*a);
     writeln ('x1= ',x1);
     writeln ('x2= ',x2);
    end
   else
    writeln ('Дискриминант отрицательный, корней нет');
   readln ();
 end.