program ssm;
var n,i,min,rez,x,k,k1:longint;
    s,m,ind:array[0..6000000] of longint;
    b:array[1..1 shl 17] of char;
begin
assign(input,'ssm.in'); settextbuf(input,b); reset(input);
assign(output,'ssm.out'); rewrite(output);
readln(n);
min:=2147483647;
for i:=1 to n do begin
                 read(x);
                 s[i]:=s[i-1]+x;
                 if s[i]<min then begin min:=s[i]; k:=i; end;
                 m[i]:=min; ind[i]:=k;
                 end;
m[1]:=0;
for i:=1 to n do if s[i]-m[i]>rez then begin rez:=s[i]-m[i]; k:=ind[i]+1; k1:=i end;
write(rez,' ',k,' ',k1);
close(output);
end.