program p1;
var a:array[0..6000000 ] of longint;
    f,g:text;
    i,n,m,j,k,u,bst,u1,u2:longint;
begin
assign(f,'ssm.in');reset(F);
assign(g,'ssm.out');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.