var f,g:text;
    m,max,s,k,l,n,i,a,b,d,e:longint;
    v:array[1..10000] of longint;
begin
assign(f,'buline.in');reset(f);
assign(g,'buline.out');rewrite(g);
read(f,n);
readln(f);
max:=-maxint;
for i:=1 to n do
    begin
    read(f,a);
    read(f,b);
    if b=0 then v[i]:=-a
           else v[i]:=a;
    readln(f);
    end;
k:=n;
repeat
k:=k-1;
l:=-1;m:=-1;
repeat
s:=0;
if n-k>=3 then
          begin
          inc(m);
          if n-k+m>n then
                   begin
                   for i:=m to n do
                   s:=s+v[i];
                   for i:=1 to n-k+m-n do
                   s:=s+v[i];
                   d:=m;
                   e:=n-k;
                   end
                   else
                   begin
                   for i:=1+m to n-k+m do
                       s:=s+v[i];
                   d:=m;
                   e:=n-k;
                   end;

          end
          else
          begin
          inc(l);
          for i:=1+l to n-k+l do
          s:=s+v[i];
          d:=1+l;
          e:=n-k-1;
          end;
if s>max then
         max:=s;
until (l=n-1) or (m=n-1);
until k=1;
write(g,max,' ',d,' ',e);
close(f);
close(g);
end.