program grendizer;
var f,g:text;
    n,m,i,x,y,a,b,c,nr:longint;
    w:array[-300..300,-300..300] of integer;
begin
assign(f,'grendizer.in');
assign(g,'grendizer.out');
reset(f);
rewrite(g);
read(f,n,m);
for i:=1 to n do
begin
readln(f);
read(f,x,y);
inc(w[x,y]);
end;
for i:=1 to m do
begin
readln(f);
read(f,a,b,c);nr:=0;
for x:=a+c downto a-c do
  for y:=b-c to b+c do
   if (abs(x-a)+abs(y-b)=c) and (w[x,y]<>0) then
   nr:=nr+w[x,y];
writeln(g,nr);
end;

close(f);
close(g);
end.