var a,b:array[0..6000000] of integer;
    i,n,bb,aa,d,e,max,s:integer;
    f,g:text;
begin
assign(f,'ssm.in'); reset (f);
assign(g,'ssm.out'); rewrite (g);
readln (f,n);
max:=-maxint;
d:=0;
e:=1;
for i:=1 to n do
 begin read (f,a[i]);
       s:=b[i-1]+a[i];
       if (s>a[i]) then b[i]:=s
                   else begin b[i]:=a[i]; d:=i; end;
       if (b[i]>max) {or ((b[i]=max) and (e-d>bb-aa))} then begin max:=b[i]; aa:=d; bb:=e; end;
       e:=e+1;
 end;
write (g,max,' ',aa,' ',bb);
close (f);
close (g);
end.