//Написать программу, которая упорядочивает цифры в заданном пятизначном числе по убыванию.

var a:array[1..5] of integer;
x,i,j:integer;
begin
  Writeln('Введите пятизначное число');
  Readln (x);
  while  (x99999) do  // проверка числа на "пятизначность"
    begin
      writeln ('Вы ввели не пятизначное число попробуйте еще раз');
      readln (x);
    end;
  for i:=1 to 5 do //раскладываем число на отдельные цифры
    begin
      a[i]:=x mod 10;
      x:=x div 10;
    end;
    for j:=1 to 4 do //сортировка пузырьком
      begin
        for i:=1 to 4-j do
          begin
            if a[i]>a[i+1] then
              begin
                x:=a[i];
                a[i]:=a[i+1];
                a[i+1]:=x;
              end;
          end;
      end;
   for j:=1 to 5 do write (a[j]);//вывод результата
end.