20 , в вашей . : даны вещественные числа a,b,c (а не равно 0). выяснить, имеет ли уравнение a*x*x+b*x+c=0 вещественные корни. заранее безмерно .

Var a, b, c, D: real;
begin
write('Введите  a, b, c>> ');
readln(a, b, c);
if a<>0 then
begin
D:=sqr(b)-4*a*c;
if D>=0 then writeln('Имеет корни') else writeln('Не имеет корней')
end
else
writeln('a не должен быть равным 0')
end.