Программа на 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.Пример работы6588 6 5