{ Составить программу решения квадратного ур-я. }

uses crt;
var a,b,c,x1,x2,d : real;
 begin
   clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(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;
if d=0 then
begin
x1:=(-b)/(2*a);
writeln('x=',x1);
end;
if d<0 then
write('корней нет');
readln;
 end.