type

arr=array[1..3000] of string[10];

var

a:string;

b:arr;

i,j,fi,n,s,small,large:longint;

code:integer;

function pxd(a:string):string;

var

tc:char;

t,len:longint;

code:integer;

st1:string;

begin

len:=length(a);

for i:=1 to len-1 do

begin

t:=i;

for j:=i+1 to len do

if a[j]>a[t] then t:=j;

tc:=a[t]; a[t]:=a[i]; a[i]:=tc;

end;

t:=len-length(a);

st1:=a;

for i:=1 to t-1 do

st1:=concat(st1,'0');

pxd:=st1;

end;

function pxx(a:string):string;

var

tc:char;

t,len:longint;

code:integer;

st1:string;

begin

len:=length(a);

for i:=1 to len-1 do

begin

t:=i;

for j:=i+1 to len do

if a[j]0;

for i:=j to s-1 do

write(b[i],' ');

end.