NUMCON PASCAL

var    n,i,j:longint;
    x:string;
    a: array [0..100] of string;
procedure enter;
begin
    n:=0;
    while not eof do
    begin
        inc(n);
        readln(a[n]);
    end;
end;

procedure bbsort;
var i,j:longint;
begin
    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
                 x:=a[i];
                  a[i]:=a[j];
                  a[j]:=x;
            end;

end;
procedure xuat;
var i:longint;
begin
    for i:=1 to n do write(a[i]);
end;
begin
    assign(input,'numcon.inp');Reset(input);
    assign(output,'numcon.out');Rewrite(output);
    enter;
    bbsort;
    xuat;
end.