program mire;
var n,i,en,b,idx,x:longint;
     smax,s:int64;
     f,g:text;
begin
assign(f,'ssm.in'); reset(f);
assign(g,'ssm.out'); rewrite(g);
readln(f,n);
 smax:=-20000000000;
 s:=0;
 read(f,x);
 s:=x;
for i:=2 to n do
  begin
    read(f,x);
     if s<0 then
     begin
       s:=0;
       idx:=i;
     end;
      s:=s+x;
     if s>smax then
       begin
        smax:=s;
        en:=i;
        b:=idx;
       end;
  end;
   write(g,smax, ' ',b,' ',en);
close(f);
close(g);

end.