拼数

var
 a:array[1..20]of longint;
 s:array[1..20]of string;
 i,j,n:longint;
 t:string;
begin
 read(n);
 for i:=1 to n do
 begin
 read(a[i]);
 str(a[i],s[i]);
 end;
 for i:=1 to n-1 do
  for j:=i+1 to n do
  if s[i]+s[j]<s[j]+s[i] then
  begin
   t:=s[i];
   s[i]:=s[j];
   s[j]:=t;
  end;
  for i:=1 to n do
  write(s[i]);
end.