var a:array[0..100] of word;
    i,j,t,b,c,d1,d2,n:longword;
    f1,f2:text;
begin
    assign(f1,'Chiakeo.inp');reset(f1);
    assign(f2,'Chiakeo.out');rewrite(f2);
    readln(f1,n);
    for i:=1 to n do read(f1,a[i]);
    for i:=1 to n-1 do
       for j:=i+1 to n do
          if a[i]<a[j] then
             begin
                 t:=a[i];
                 a[i]:=a[j];
                 a[j]:=t;
             end;
    b:=a[1];c:=a[2];
    d1:=1;d2:=1;
    for i:=3 to n do
        if b>=c then
           begin
               c:=c+a[i];
               inc(d2);
           end
        else
           begin
               b:=b+a[i];
               inc(d1);
           end;
    if b>c then
        writeln(f2,b,' ',c,#13#10,d1,' ',d2)
    else writeln(f2,c,' ',b,#13#10,d2,' ',d1);
    close(f1);close(f2);
end.

type kmang=array[-100..100] of integer;
var fi,fo:text;
    n,i,m,j:integer;
    a,c:kmang;
    f:array[-100..100,-100..100] of integer;
procedure ktn;
        begin
                assign(fi,'Chiakeo.INP'); reset(fi);
                assign(fo,'Chiakeo.OUT');
                readln(fi,n);
                m:=0;
                for i:=1 to n do
                begin
                        read(fi,a[i]);
                        m:=m+a[i];
                end;
                m:=m div 2;
                close(fi); rewrite(fo);
        end;
procedure taomang;
        begin
                for i:=1 to n do
                for j:=1 to m do
                if (a[i]<=j) and (f[i-1,j]<f[i-1,j-a[i]]+a[i]) then
                f[i,j]:=f[i-1,j-a[i]]+a[i]
                else f[i,j]:=f[i-1,j];
        end;
procedure truyvet(i,j:integer);
        begin
                if i<>1 then
                if f[i,j]<>f[i-1,j] then truyvet(i-1,j-a[i])
                else truyvet(i-1,j);
                if f[i,j]<>f[i-1,j] then write(fo,i,' ',n-i);
        end;

BEGIN
        ktn; taomang;
        writeln(fo,m*2-f[n,m],' ',f[n,m]);
        truyvet(n,m);
        close(fo);
END.