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

огромное спасибо! очень помогли!:)

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