program mire;
var v:array[1..6000000] of integer;
     n,i,en,b,idx: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;
for i:=1 to n do
  begin
    read(f,v[i]);
     if s<0 then
     begin
       s:=v[i];
       idx:=i;
     end
     else
      s:=s+v[i];
     if s>smax then
       begin
        smax:=s;
        en:=i;
        b:=idx;
       end;
  end;
   write(g,smax, ' ',b,' ',en);
close(f);
close(g);

end.