Uses crt;
Var a,b,c:integer;
Begin
clrscr;
write('Podaj liczbe a: ');
readln(a);
write('Podaj liczbe b: ');
readln(b);
write('Podaj liczbe c: ');
readln(c);
if (a>b) and (a>c) and (b>c) then
writeln(a,b,c);
if (b>a) and (b>c) and (a>c) then
writeln(b,a,c);
if (c>a) and (c>b) and (a>b) then
writeln(c,a,b);
if (a>b) and (a>c) and (c>b) then
writeln(a,c,b);
if (b>a) and (b>c) and (c>a) then
writeln(b,c,a);
if (c>a) and (c>b) and (b>a) then
writeln(c,b,a);
readln;
end.

Możecie pozmieniać kolejność, albo rozbić na więcej przypadków.