Дано квадратное уравнение вида 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;begina:=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 beginwriteln('Меньший корень',x2,'Больший корень',x1)end elsewriteln('Меньший корень ',x1,'Больший корень ',x2);end.