Вот так как то, если неправильно, напишите в комментах
program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
else
if a>c then writeln (b,c,a)
else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
if b>c then writeln (a,c,b)
else write(a,b,c)
end;
end.