var
i,j,k,a,b,m,n,y:longint;
r,t,x,z,c:array[1..100]of longint;

procedure ss(m,n,o,p,q:longint);
var u,v,sum:longint;
begin
u:=o-m;
v:=p-n;
sum:=u*u+v*v;
if sum<q*q
then c[i]:=c[i]+r[b];
end;

begin
assign(input,'table2.in');
reset(input);
assign(output,'table2.out');
rewrite(output);

readln(a);
  y:=30;
   x[1]:=30;x[2]:=100;x[3]:=170;
   z[1]:=20;z[2]:=10;z[3]:=5;
   r[1]:=1;r[2]:=2;r[3]:=3;
for i:=1 to a do begin
k:=0;readln(t[i]);
 for j:=1 to t[i] do begin
  readln(m,n);
  for b:=1 to 3 do
   ss(m,n,x[b],y,z[b]);
  end;
end;
for i:=1 to a do
writeln(c[i]);

close(input);
close(output);
end.