Program subsecventa;
var f,q:text;
    max,start,fin,i,j,x,s,inits,n:longint;
begin

assign(f,'ssm.in');
reset(f);
assign(q,'ssm.out');
rewrite(q);
readln(f,n);
max:=-maxint;
s:=0;
inits:=1;
j:=0;
for i:=1 to n do
begin
        read(f,x);
        if s<=0 then begin s:=x; inits:=i; j:=i; end
        else if s>0 then begin s:=s+x; inc(j); end;
        if s>max then begin max:=s; start:=inits;  fin:=j; end;
end;
writeln(q,max,' ',start,' ',fin);
close(F);
close(q);
end.