program sap_xep_chuso;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
procedure sx(k:integer);
var B:array[1..10] of byte;
d,j,h,tg:byte;
begin
d:=0;
while k>0 do
begin
d:=d+1;
B[d]:=n mod 10;
n:=n div 10;
end;
for j:=1 to d-1 do
for h:=j+1 to d do
if B[j]<B[h] then
begin
tg:=B[j];
B[j]:=B[h];
B[h]:=tg;
end;
for j:=1 to d do write(B[i]);
write(' ');
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
for i:=1 to n do sx(A[i]);
readln;
end.
