Дано квадратное уравнение вида 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.