Написать программу, которая запрашивает коэффициенты квадратного уравнения и сообщает, сколько корней имеет уравнение. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program QuadraticEquation;

var
a, b, c, D: real;

begin
// Ввод коэффициентов
write('Введите коэффициент a: ');
readln(a);

write('Введите коэффициент b: ');
readln(b);

write('Введите коэффициент c: ');
readln(c);

// Вычисление дискриминанта
D := b b - 4 a * c;

// Определение количества корней
if D > 0 then
writeln('Уравнение имеет два различных корня')
else if D = 0 then
writeln('Уравнение имеет один корень')
else
writeln('Уравнение не имеет действительных корней');
end.