记录编号	65031	评测结果	AAAAAAAAAA
题目名称	[暑假培训2012] 打乒乓球	最终得分	100
用户昵称	三木公98	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2013-07-25 15:06:11	内存使用	0.17 MiB

var
a,b,i,j,m,n,sum:longint;


procedure ss(x,y,x0,y0,r,o:integer);
begin
if ((x-x0)*(x-x0)+(y-y0)*(y-y0))<(r*r)
  then sum:=sum+o;
end;

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

readln(m);sum:=0;
for i:=1 to m do
  begin
  readln(n);
  for j:=1 to n do
    begin
    readln(a,b);
    ss(a,b,30,30,20,1);
    ss(a,b,100,30,10,2);
    ss(a,b,170,30,5,3);
    end;
  writeln(sum);
  sum:=0;
  end;


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