begin writeln('Введите коэффициенты a,b,c:'); readln(a,b,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('---------'); writeln('x1= ',x1); writeln('x2= ',x2); end; if d=0 then begin x1:=(-b/2*a); writeln('x= ',x1); end; if d<0 then writeln('Корней нет!'); end.