Дано квадратное уравнение вида 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) Вывести вначале меньший корень, затем больший. Нужно написать программу в Pascale.

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

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.