program buline;
var n,i,k,s,l,max,sum,j:longint;
a:array [1..200000] of longint;
f,g:text;
begin
  assign(f,'buline.in'); assign(g,'buline.out');
  reset(f); rewrite(g);
  read (f,n);
  max:=-100000;
  for i:=1 to n do
  begin
    read(f,a[i],k);
    if k=0 then a[i]:=-a[i];
    if a[i]>max then begin max:=a[i]; s:=i; l:=1; end;
    a[n+i]:=a[i];
  end;
  for i:=1 to n do
  begin
    sum:=a[i];
    for j:=i+1 to n+i-1 do
    begin
      sum:=sum+a[j];
      if sum>max then begin max:=sum; s:=i; l:=j-i+1; end;
    end;
  end;
  writeln(g,max,' ',s,' ',l);
  close(f); close(g);
end.