var a, b,c ,x1 ,x2, d:real;
begin
 write('Введите первый коеффициент а: ');
 read(a);
 write('Введите второй коеффициент b: ');
 read(b);
 write('Введите свободеый член c: ');
 read(c);
 d:=sqr(b)-4*a*c;
 if d>0 then begin
  x1:=(-b+sqrt(d))/2*a;
  x2:=(-b-sqrt(d))/2*a;
  writeln('x1= ',x1);
  writeln('x2= ',x2);
 end
 else
 begin
 if d=0 then begin
  writeln('Дискриминант равен нулю');
  x1:=(-b)/2*a;
  writeln('x= ',x1);
 end     
 else
 begin
  writeln('Дискриминант меньше нуля, уравнение корней не имеет.');
 end;
 end;            
end.