uses crt;
var A:array[1..20] of integer;
n:longint;
i, j, t, d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
d:=d+1;
A[d]:=n mod 10;
n:=n div 10;
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if A[i]<A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
for i:=1 to d do write(A[i]);
readln;
end.