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