var
i,j,t,k:longint;
n,x,y:integer;

function pd(x,y,z,a,b:integer):integer;
begin
pd:=0;
if (x-a)*(x-a)+(y-b)*(y-b)<z*z then pd:=1;
end;


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

read(t);
FOR I:=1 TO T DO
    BEGIN
    read(n);
    k:=0;
    for j:=1 to n do
        begin
        read(x,y);
        if pd(30,30,20,x,y)=1 then k:=k+1
           else if pd(100,30,10,x,y)=1 then k:=k+2
                else if pd(170,30,5,x,y)=1 then k:=k+3;

        end;
    writeln(k);
    END;


close(input);close(output);

end.