Prog eq;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
readln ('Введите a,b,c ', a,b,c);
d=b×b-4×a×c;
if d <0 then<br>writeln ('Действительных корней нет');
else
if a <>0 then
x1:=(-b-sqrt (d))/(2×a);
writeln('Корень уравнения ',x1:5:3);
x2:=(-b+sqrt (d))/(2×a);
writeln('Корень уравнения ',x2:5:3);
else
x1:=-c/b;
writeln('Корень уравнения ',x1:5:3);
endif;
readkey;
end.