var i,j,n,b,incepe,x,l,max,maxi,maxl:longint;
    t:text;
begin
b:=-maxlongint;
assign(t,'ssm.in'); reset(t);
readln(t,n);
for i:=1 to n do
begin
  read(t,x);
  if (b<0) then
    begin
      b:=x;
      incepe:=i;
      l:=1;
    end
  else
    begin
      b:=b+x;
      inc(l);
    end;
  if ((max<b) )  then
    begin
      max:=b;
      maxi:=incepe;
      maxl:=i;
    end;
end;
close(t);
assign(t,'ssm.out'); rewrite(t);
writeln(t,max,' ',maxi,' ',maxl);
close(t);
end.