program pascal;
var f,g:text; s:array[0..6000000] of longint; best,i,a,n,sum,beg,el,idx:longint;

  procedure citire;
  begin
  assign(f,'ssm.in'); reset(f);
  assign(g,'ssm.out'); rewrite(g);
  readln(f,n);
  read(f,a); best:=a; sum:=a;
  for i:=2 to n do
     begin
     read(f,a);
     if (sum<0) then begin sum:=a; idx:=i; end
                else sum:=sum+a;
     if best<sum then begin best:=sum; beg:=idx; el:=i; end;

     end;
  write(g,best,' ',beg,' ',el);
  close(f);
  close(g);
  end;

begin
citire;
end.