Дано квадратное уравнение вида a*x^2+b*x+c=0 коэффициенты заданы a= 4.00 b= -52.00 c= 144.00 a> 0, d> 0. формулы для : d=b^2 - 4*a*c; x1,2=(-b +- sqrt(d))/(2*a) вывести вначале меньший корень, затем больший. нужно написать программу в pascal'e.

Как-то так крч=)

program z1;
var a,b,c,d,x1,x2:real;
begin
a:=4.00;
b:=-52.00;
c:=144.00;
d:=b*b - 4*a*c;
x1:=(-b+ Sqrt(d))/(2*a);
x2:=(-b- Sqrt(d))/(2*a);
if x1>x2 then begin
writeln('Меньший корень',x2,'Больший корень',x1)
end else
writeln('Меньший корень ',x1,'Больший корень ',x2);
end.