program ssm;
var f,g:text;
    v:array[1..6000000] of integer;
    s,smax,p,i,ince,fina,n:int64;
begin
  assign(f,'ssm.in');
  reset(f);
  assign(g,'ssm.out');
  rewrite(g);
  readln(f,n);
  i:=1;
  while i<=n do
   begin
    read(f,v[i]);
    i:=i+1;
   end;
  s:=0;
  smax:=0;
  i:=1;
  while i<=n do
    begin
      s:=s+v[i];
      if s<0 then
        begin
          s:=0;
          p:=i;
        end
      else
      if s>smax then
        begin
          smax:=s;
          ince:=p+1;
          fina:=i;
        end;
      i:=i+1;
    end;
  writeln(g,smax,' ',ince,' ',fina);
  close(f);
  close(g);
end.