program a;
var
a,b,c,x1,x2,d: real;
uses crt;
begin
clrscr;
write('введите a='); readln(a);
write('введите b='); readln(b);
write('введите c='); readln(c);
d: =b*b-4*a*c;
if d< 0 then begin
writeln('нет корней');
end;
if d=0 then begin
writeln('x1=',-b/(2*a))
end;
if d> 0 then begin
x1: =(-b-sqrt(d))/(2*a);
x2: =(-b+sqrt(d))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2);
end;
end.
