NUMCON - Ghép số lớn
Tác giả: RR
Ngôn ngữ: Pascal
var
n,i,j:longint;
a:array[1..111] of string;
tmp:string;
begin
while not eof(input) do
begin
inc(n);
readln(a[n]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]<a[j]+a[i] then
begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
end;
for i:=1 to n do write(a[i]);
end.