var n,m,s,i,j,x,y,sum:longint;
    a:array[1..100000] of char;
    
begin
  assign(input,'ssm.in');
  assign(output,'ssm.out');
  reset(input);
  rewrite(output);
  settextbuf(input,a);
  read(n);
  s:=0;
  x:=1;
  j:=1;
  sum:= 1 shl 31;
  writeln(sum);
  for i:=1 to n do begin
    read(m);
    if (s<0) and (s<m) then begin
      s:=m;
      j:=i
    end else 
      s:=s+m;
    if sum<s then begin
      sum:=s;
      x:=j;
      y:=i;
    end;
  end;
  write(sum,' ',x,' ',y);
end.