program abc;

var
  a, b, c, d, x1, x1: real;

begin
  Write('введите коэффициенты уравнения a,b,c'); 
  Readln(a, b, c);
  D := sqr(b) - 4 * a * c;
  if d >= 0 then
  begin
    x1 := (-b + sqrt(d)) / (2 * a); 
    if d > 0 then 
      x2 := (-b - sqrt(d)) / (2 * a);
    Writeln('x1=', x1, ' x2=', x2)
  end
  Else writeln('действительных корней нет')
end.