Даны
вещественные числа a, b, c. Выяснить, имеет ли уравнение ах2 + bx +
c = 0 вещественные корни.

Написать программу!

var  a,b,c,d:real;beginwrite('Введите коэффициенты a, b, c: ');readln(a,b,c);d:=(b*b-4*a*c);if d<0 then writeln('Вещественных корней нет'); if d=0 then writeln('Один вещественный корень');if d>0 then writeln('Два вещественных корня');end.