упорядочить числа.

[zetr0]

Дано натуральное пятизначное число. упорядочить числа по возрастанию.

я нашёл каждое число в отдельности через div и mod, а что делать дальше????

[Roof]

Число состоит из цифр. Думаю, что речь идет именно о цифрах числа.
Я бы сделал так:
Заносишь цифры числа массив и потом упорядочиваешь массив.

[zetr0]

Сообщение от Roof

Число состоит из цифр. Думаю, что речь идет именно о цифрах числа.
Я бы сделал так:
Заносишь цифры числа массив и потом упорядочиваешь массив.

продолжи пожалуйста ну или хотя бы поясни....

вот у меня задача!

var a, b, c,d,e,k:integer;
begin writeln('введите к: ');readln(k);
a:=k div 10000;
b:=(k mod 10000) div 1000;
c:=(k mod 1000) div 100;
d:=(k mod 100) div 10;
e:=k mod 10;

[Kingdom_Reborn]

var
  x, y, z: Longint;
begin
  ReadLn(x);
  y := x mod 10;
  x := x div 10;
  while x <> 0 do
  begin
    if x mod 10 >= y mod 10 then
      y := y * 10 + x mod 10
    else
    begin
      z := 0;
      while (x mod 10 < y mod 10) and (y > 0) do
      begin
        z := z * 10 + y mod 10;
        y := y div 10;
      end;
      y := y * 10 + x mod 10;
      while z <> 0 do
      begin
        y := y * 10 + z mod 10;
        z := z div 10;
      end;
    end;
    x := x div 10;
  end;
  WriteLn(y);
  ReadLn;
end.