program SSm;
var f,g:text;
    si,so,pi,pf,pint,n:int64;
    i,nr:longint;
    bufin,bufout:array[1..1 shl 17] of byte;
begin
  assign(f,'ssm.in');reset(f);
  assign(g,'ssm.out');rewrite(g);
  settextbuf(f,bufin);
  settextbuf(g,bufout);
  readln(f,n);
  so:=-maxlongint;
  pint:=1;
  for i:=1 to n do
    begin
      read(f,nr);
      if si<0 then
        begin
          si:=nr;
          pint:=i;
        end
      else
        si:=si+nr;
      if si>so then
        begin
          so:=si;
          pi:=pint;
          pf:=i;
        end;
    end;
  writeln(g,so,' ',pi,' ',pf);
  close(f);
  close(g);
end.