Даны
вещественные числа 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.