program expresii;
var f,g:text;
    i,m,n,y,r,j,a,b,u,v,k:longint;
    x:array[-10000..10000,0..200] of longint;
    nr:int64;

begin
   assign(f,'grendizer.in');
   assign(g,'grendizer.out');
   rewrite(g);
   reset(f);
   readln(f,n,m);
   for i:=1 to n do
   begin
      readln(f,a,b);
      x[a,0]:=x[a,0]+1;
      x[a,x[a,0]]:=b;
   end;
   for i:=1 to m do
   begin
   readln(f,u,v,r);
   nr:=0;
   for j:=u-r to u+r do
      for k:=1 to x[j,0] do
        if abs(u-j)+abs(v-x[j,k])=r then nr:=nr+1;
   writeln(g,nr);
   end;
   close(f);
   close(g);
end.