program ssm;
var s:array[0..6000000] of integer;
        f,g:text;
        i,n,max,min,idx,beg,sf:longint;

begin
assign(f,'ssm.in');
reset(f);
assign(g,'ssm.out');
rewrite(g);
readln(f,n);
for i:=1 to n do
        read(f,s[i]);
close(f);
s[0]:=0;
idx:=0;
min:=0;
max:=-maxlongint;
for i:=1 to n do
        begin
        s[i]:=s[i-1]+s[i];
        if s[i]-min>max then
                begin
                max:=s[i]-min;
                beg:=idx+1;
                sf:=i;
                end;
        if s[i]<min then begin
                min:=s[i];
                idx:=i;
                end;
        end;
writeln(g,max,' ',beg,' ',sf);
close(g);
end.