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

program table2;
const
    infile = 'table2.in';
	outfile = 'table2.out';
	r1=400;r2=100;r3=25;
	x1=30;x2=100;x3=170;
	y1=30;y2=30;y3=30;
var
	t,n,i,j,ans,x0,y0:longint;

procedure pd(x0,y0,x1,x2,r:longint);
begin
	if (x0-x1)*(x0-x1)+(y0-y1)*(y0-y1)<r then begin
		inc(ans);
		if x1=100 then inc(ans);
		if x1=170 then inc(ans,2);
	end;
end;

begin
	assign(input,infile);reset(input);
	assign(output,outfile);rewrite(output);
	readln(t);
	for i:=1 to t do begin
		readln(n);
		for j:=1 to n do begin
			read(x0,y0);
			pd(x0,y0,x1,y1,r1);
			pd(x0,y0,x2,y2,r2);
			pd(x0,y0,x3,y3,r3);
		end;
		writeln(ans);
		ans:=0;
	end;	
	close(input);close(output);
end.