program p1;
var a:array[0..6000000] of longint;
    f,g:text;
    i,n,m,j,k,u,bst,u1,u2:longint;
    b1,b2:array[0..1 shl 17] of char;
begin
assign(f,'ssm.in');settextbuf(f,b1);reset(F);
assign(g,'ssm.out');settextbuf(g,b2);rewrite(G);
readln(f,n); bst:=-99999999;
for i:=1 to n do read(f,a[i]);

for i:=1 to n do begin
         if k<0 then begin
                k:=a[i];
                u:=i;
                end
                else k:=k+a[i];
          if bst<k then begin
                        bst:=k;
                        u1:=u;
                        u2:=i;
                        end;
          end;
writeln(g,bst,' ',u1,' ',u2);
close(F);
close(G);
end.