NUMCON - Ghép số lớn
Tác giả: ladpro98
Ngôn ngữ: Pascal
program numcon;
const fi='';
var a:array[1..110] of string;
n,i:longint;
inp:text;
procedure swap(i,j:longint);
var t:string;
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
procedure sort;
var i,j:longint;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]+a[j]<a[j]+a[i]
then swap(i,j);
end;
end;
begin
assign(inp,fi);
reset(inp);
n:=0;
while not eof(inp) do
begin
inc(n);
readln(inp,a[n]);
end;
sort;
for i:=1 to n do
write(a[i]);
end.