var n,i,s,b,v,b2,smax,j,h,j2,h2:longint;
f,g:text;
begin
assign(f,'ssm.in');
assign(g,'ssm.out');
reset(f);rewrite(g);
readln(f,n);
read(f,b2);
smax:=b2;
j:=1;
h:=1;
j2:=1;
h2:=1;
for i:=2 to n do
    begin
    read(f,v);
    if b2>=0 then
       begin
       b:=b2+v;
       if (b2+v>smax) or ((b2+v=smax) and ((j>h) or ((j=h) and (i<h2)))) then
          begin
          smax:=b2+v;
          h:=j;
          h2:=i;
          end;
       end
    else
        begin
        b:=v;
        j:=i;
        if (v>smax) or ((v=smax) and ((j>h) or ((j=h) and (i<h2)))) then
           begin
           smax:=v;
           h:=j;
           h2:=i;
           end;
        end;
    b2:=b;
    end;
write(g,smax,' ',h,' ',h2);
close(f);close(g);
end.