const maxn = 200001;

var f:text;
    n,i,ml,mp,t,max:longint;
    sol:longint;
    a,c,c1,d:array[1..maxn]of longint;

procedure readdata;
var x,y:longint;
begin
   assign(f,'buline.in');
   reset(f);
   readln(f,n);
   for i:=1 to n do
   begin
      readln(f,x,y);
      if y=0 then y:=-1;
      a[i]:=-x*y;
      t:=t-a[i];
   end;
   close(f);
end;

procedure solve;
begin
   c[1]:=a[1];
   d[1]:=1;
   max:=0;
   for i:=2 to n do
   begin
      c[i]:=a[i];
      d[i]:=1;
      if c[i-1]>0 then
      begin
         c[i]:=c[i]+c[i-1];
         d[i]:=d[i]+d[i-1];
      end;
      if c[i]>=max then
      begin
         max:=c[i];
         mp:=i-d[i]+1;
         ml:=d[i];
      end;
   end;
end;

procedure writedata;
begin
   assign(f,'buline.out');
   rewrite(f);
   max:=max+t;
   mp:=mp+1;
   if mp>n then mp:=mp mod n;
   ml:=n-ml;
   while ml<0 do ml:=ml+n;
   writeln(f,max,' ',mp,' ',ml);
   close(f);
end;

begin
   readdata;
   solve;
   writedata;
end.