ПОМОГИТЕ ПОЖАЛУЙСТА! нужно в паскале написать процедуру, которая находит корни уравнения ax2 +bx+c=0

Да

Не нашла еще на паскале решение кв. уравнения?
Или сложность просто засунуть в процедуру?

Ниже на странице в разделе похожие вопросы нашел

uses crt;
var a,b,c:real;
d,x1,x2:real;
begin
clrscr;
writeln('Программа для решения квадратных уравнений! ');
write('Введите коэффициент при x^2 --> ');
readln(a);
write('Введите коэффициент при x --> ');
readln(b);
write('Введите свободный член --> ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('X1=',x1:4:2);
writeln('X2=',x2:4:2);
end
else
writeln('Уравнение корней не имеет, дискриминант меньше 0');
writeln('Конец задачи ');
readln;
end.

а можно так
uses crt;
var
a,b,c,d,x1,x2,rx,ix: real;
begin
{Ââîäèì çíà÷åíèÿ a, b è c}
clrscr;
write('Wwedite A: ');
readln(a);
write('Wwedite B: ');
readln(b);
write('Wwedite C: ');
readln(c);
{Âû÷èñëÿåì äèñêðèìèíàíò}
d:= b*b - 4*a*c;
{Åñëè äèñêðèìèíàíò áîëüøå 0, òî âû÷èñëÿåì êîðíè è âûâîäèì íà ýêðàí}
if d >= 0 then
begin
x1:= (-b + sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
writeln('x1 = ',x1:4:2);
writeln('x2 = ',x2:4:2);
end;

{Åñëè äèñêðèìèíàíò ìåíüøå 0, òî âûâîäèì ñîîáùåíèå}
if d < 0 then
begin
writeln('êîðíè êîìïëåêñíûå');
rx:= -b/(2*a);
ix:=sqrt(-d)/(2*a);
writeln('x1 = ',rx:4:2,' + ',ix:4:2,' i');
writeln('x1 = ',rx:4:2,' - ',ix:4:2,' i');
end;
readln;
end.