Программа на pascal abc. сгенерировать случайным образом трехзначное число. напечатать его. вывести все цифры, составляющие это число, в порядке не убывания.

Var
  n,i,j,k:integer;
  a:array[1..3] of integer;
begin
  Randomize;
  n:=Random(900)+100;
  Writeln(n);
  a[1]:=n div 100;
  a[2]:=(n div 10) mod 10;
  a[3]:=n mod 10;
  for i:=1 to 2 do
    for j:=i+1 to 3 do
      if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
  Writeln(a[1],' ',a[2],' ',a[3]);
end.

Пример работы
658
8 6 5