var a:array[1..10000] of longint;

i,j,k,l,m,n:longint;

b:array[1..10000,1..10000] of longint;

begin

readln(n);

for i:=1 to n do

begin

read(a[i]);

if a[i]<0 then inc(j);

end;

if (j=n) or (n<0) then begin writeln(0);halt end;

m:=-maxlongint;

for i:=1 to n-1 do

b[i,i]:=a[i];

for i:=1 to n-1 do

for j:=i+1 to n do

begin

b[i,j]:=b[i,j-1]+a[j];

if b[i,j]>m then begin m:=b[i,j];k:=i;l:=j end;

end;

writeln(k,' ',l);

writeln(m);

end.