Var i,t,j, n:integer; b:array[1..20] of integer;s:string;begin write('Введите число n = '); readln(n); repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; writeln(b); for i:= 1 to i do begin for j:= 2 to i do begin if b[j-1] < b[j] then begin t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t; end; end; end; writeln(b); for t:=1 to i do s:= s + inttostr(b[t]); write(s); end.