var a:array[0..200] of integer;
    f,g:text;
    n,i,j,deplasare,max,b,c,poz1,poz2:longint;
    s:0..1;
procedure citire;
begin
read(f,n);
for i:=1 to n do begin
  read(f,a[i],s);
  if s=0 then a[i]:=-a[i];
  readln(f);
end;
end;
begin
assign(f,'buline.in'); reset(f);
assign(g,'buline.out'); rewrite(g);
citire;
deplasare:=0;
max:=0;
for i:=1 to n do begin
  b:=0;
  for j:=i to n+deplasare do begin
    if j<=n then c:=b+a[j]
            else c:=b+a[j-n];
    if c>max then begin
      max:=c;
      poz1:=i;
      if j<=n then poz2:=j
              else poz2:=j-n;
    end;
    b:=c;
  end;
  deplasare:=deplasare+1;
end;
if poz2-poz1>0 then write(g,max,' ',poz1,' ',poz2-poz1+1)
               else write(g,max,' ',poz1,' ',n+poz2-poz1+1);
close(g);
end.