Напишите программу на паскале которая решает уравнение ax^2+bx+c=0 используя циклы

Для Одри можно и покороче))

Только для случая одного корня печатается 2 одинаковых. Так тоже можно

Var a, b, c, d: real;

Begin

WriteLn ('Решение ax^2 + bx + c = 0');

WriteLn ('Введите a b с '); ReadLn (a, b, c);

if a=0 then WriteLn ('Это не квадратное уравнение. Решайте его сами! ')

else

begin

d:=b*b-4*a*c;

if d<0 then Writeln ('Нет действительных корней')

else WriteLn ('корни: ', (-b+Sqrt (d)) / (2*a),' и ', (-b-Sqrt (d)) / (2*a));

end;

ReadLn

End.