program jgash;
var f,g:text;
    b,v,st:array of longint;
    i,n,max,pi,pf:longint;
begin
  assign(f,'ssm.in'); reset(f);
  assign(g,'ssm.out'); rewrite(g);
  readln(f,n);
  setlength(b,n+1);
  setlength(v,n+1);
  setlength(st,n+1);
  b[0]:=-1;
  max:=-maxlongint;
  for i:=1 to n do
    begin
      read(f,v[i]);
      if v[i]>b[i-1]+v[i] then
        begin
          st[i]:=i;
          b[i]:=v[i];
        end
      else
        begin
          st[i]:=st[i-1];
          b[i]:=b[i-1]+v[i];
        end;
      if b[i]>max then
        begin
          max:=b[i];
          pi:=st[i];
          pf:=i;
        end;
    end;
  writeln(g,max,' ',pi,' ',pf);
  close(f);
  close(g);
end.