var a:array[1..400100] of longint;
    f,g:text;
    i,n,x,y,max,sc,ic,sf,pc:longint;
begin
assign(f,'buline.in');reset(f);
assign(g,'buline.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
        readln(f,x,y);
        if y=0 then a[i]:=-x else a[i]:=x;
end;
for i:=n+1 to 2*n-1 do
        a[i]:=a[i-n];
max:=a[1];sc:=a[1];ic:=1;sf:=1; pc:=1;
for i:=2 to 2*n-1 do begin
        if (sc>0) and (i-pc+1<=n) then sc:=sc+a[i]
         else begin
                sc:=a[i];
                pc:=i;
         end;
        if sc>max  then begin
                ic:=pc;
                sf:=i;
                max:=sc;
        end;
end;
writeln(g,max,' ',ic,' ',sf-ic+1);
close(g);
end.