program p2;
var
a,b,c,d,n,t,x,y,k:longint;
s:array[1..3,1..3] of longint;
function jl(x1,y1,x2,y2:longint):real;
var
a,b,c:longint;s:real;
begin
jl:=0;
jl:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
begin
assign(input,'table2.in');
reset(input);
assign(output,'table2.out');
rewrite(output);
s[1,1]:=30;s[1,2]:=30;s[1,3]:=20;
s[2,1]:=100;s[2,2]:=30;s[2,3]:=10;
s[3,1]:=170;s[3,2]:=30;s[3,3]:=5;
read(t);
for a:=1 to t do
begin
read(n);
k:=0;
for b:=1 to n do
begin
read(x,y);
for c:=3 downto 1 do
if jl(s[c,1],s[c,2],x,y)<s[c,3] then begin k:=k+c;break;end;
end;
writeln(k);
end;
close(input);
close(output);
end.