var f,g:text;
   q,max,n,i,m,j,p,x,l,a,b:longint;
   v:array[1..200000] of -10000..10000;
begin
assign(f,'buline.in');
reset(f);
readln(f,n);
for i:=1 to n do
   begin
     readln(f,a,b);
     if b=0 then v[i]:=0-a
       else v[i]:=a;
  end;
close(f);
m:=2*n;
max:=0;
l:=200000;
p:=200000;
i:=n;
while i<=m do
  begin
    q:=i-n+1;
    a:=0;
    for j:=i downto q do
       begin
         if j-n<=0 then x:=j else x:=j-n;
         b:=v[x]+a;
         if b>max then
            begin
               max:=b;
               p:=x;
               l:=i-j+1;
            end
              else if (b=max)and(x<p) then  begin p:=x; l:=i-j+1;end
                 else if (b=max)and(x=p)and(l>i-j+1) then l:=i-j+1;
           a:=b;
       end;
       inc(i);
  end;
assign(g,'buline.out');
rewrite(g);
writeln(g,max,' ',p,' ',l);
close(g);
end.