var v:array[1..1000] of longint;
    n,k,c,juc:longint;
    f,g:text;

procedure deschidere;
begin
  assign(f,'cutii.in');
  assign(g,'cutii.out');
  reset(f);
  rewrite(g);
end;

procedure a;
var i,iesit,j:longint;
begin
  readln(f,n);
  for i:=1 to n do
    read(f,v[i]);
  readln(f);
  iesit:=0;
  k:=n;
  c:=0;
  juc:=0;
  while c<n div 2-1 do
    begin
      j:=0;
      if k mod 2=0 then
        begin
          inc(c,2);
          inc(juc,v[k div 2]+v[(k div 2)+1]);
          for i:=k div 2+1 to k do
            begin
              inc(j);
              inc(v[j],v[i]);
              v[i]:=-1;
            end;
          dec(k,2);
          k:=k div 2;
        end
      else
        begin
          inc(c,1);
          inc(juc,v[(k div 2)+1]);
          for i:=k div 2+2 to k do
            begin
              inc(j);
              inc(v[j],v[i]);
              v[i]:=-1;
            end;
          dec(k,1);
          k:=k div 2;
        end;
    end;
  writeln(g,c,' ',juc);
  c:=0;
  juc:=0;
  for i:=1 to n do
    if v[i]>-1 then
      begin
        inc(c);
        inc(juc,v[i]);
      end;
  writeln(g,c,' ',juc);
end;

begin
  deschidere;
  a;
  close(f);
  close(g);
end.