[albo]

var
 a,b,c,d,x1,x2: Real;

begin
 writeln('Решение квадратных уравнений (ax^2+bx+c=0)');
 write('a=');
 readln(a);
 if a=0 then
  begin
   writeln('это уравнение не является квадратным, a но должно быть равно 0');
   Halt;
  end;
 write('b=');
 readln(b);
 write('c=');
 readln(c);

 d:=(b*b)-((4*a)*c);
 writeln('D=', d:0:2);

 if d>=0 then
  begin
   x1:=((b*b)-(sqrt(d)))/(2*a);
   x2:=((b*b)+(sqrt(d)))/(2*a);
   writeln('x1=', x1:0:2);
   writeln('x2=', x2:0:2);
  end
 else
  writeln('дискриминант отрицательный - нет вещественных решений');
end.