Даны

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

c = 0 вещественные корни.

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

Var a, b, c, d:real;

begin

write ('Введите коэффициенты 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.