как сделать в порядке возрастания?

[Berserk0]

program sdasda;
uses crt;
var x:integer;
f:real;
begin
clrscr;
writeln('vvod x');
readln(x);
f:=ln(x);
writeln('ln(x)=',f:0:2);
f:=ln(sqr(x))/ln(10);
writeln('log (x^2)=',f:0:2);
f:=ln(3)/(ln(x));
writeln('log3(x)=',f:0:2);
f:=ln(5)/ln(sqr(x));
writeln('log5(x^2)=',f:0:2);
readln;
end.

Как сделать вывод в порядке возрастания? что за что минимум что за что муксимум не могу вникнуть=\

[rubius2008]

Наверно нужно

program sdasda;
...
f1:=ln(x);
f2:=ln(sqr(x))/ln(10);
f3:=ln(3)/(ln(x));
f4:=ln(5)/ln(sqr(x));
{далее сравниваете эти 4 значения и выводите в нужном порядке}
....
end.

Лучше, как мне кажется, сделать через массивы.

[Berserk0]

а это как?