//buline infoarena preoni 2007 runda 3
const nmax = 200000;
var a:array[1..2*nmax] of integer;
    start,max : array[1..2*nmax] of longint;
    n:longint;

procedure citire;
var i,x,y:integer;
begin
assign(input,'buline.in'); reset(input);
readln(n);
for i:=1 to n do
        begin
        readln(x,y);
        if y = 0 then a[i]:=-x
        else a[i]:=x;
        end;
for i:=1 to n-1 do
        a[n+i]:=a[i];
n:=2*n-1;
closE(input);
end;

procedure calc;
var i,mmax,pstart,poz:longint;
begin
max[1]:=a[1];
start[1]:=1;

for i:=2 to n do
        begin
        if (max[i-1] + a[i] > a[i]) or ( i > n) then
                begin
                max[i]:=max[i-1]+a[i];
                start[i]:=start[i-1];
                end
        else
                begin
                max[i]:=a[i];
                start[i]:=i;
                end;
        end;
poz:=1; pstart:=1; mmax:=max[1];
for i:=1 to n do
        if mmax < max[i] then
                begin
                mmax:=max[i];
                pstart:=start[i];
                poz:=i;
                end;
writeln(mmax,' ',pstart,' ',poz-pstart+1);
end;

begin
citire;
assign(output,'buline.out'); rewritE(output);
calc;
close(output);
end.