program QuadraticEquation;
var
  a, b, c, x1, x2, d : real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);

  d := sqr(b) - 4 * a * c;

  if d < 0 then
    writeln('нет корней')
  else
    begin
       x1 := (-b + sqrt(d)) / (2 * a);
       x2 := (-b - sqrt(d)) / (2 * a);

       writeln('x1 = ', x1:8:3);
       writeln('x2 = ', x2:8:3);
     end;
end.

    write("x1: ");
    writeln(x1);

    write("x2: ");
    writeln(x2);
end.