var f,g:text;
iii,i,ii,y,yy,x,xx,limx,limy,w,h,n,m,kk:longint;
begin
assign(f,'ograzi.in');
assign(g,'ograzi.out');
reset(f);
rewrite(g);
readln(f,n,m,w,h);
for i:=1 to n do begin
readln(f,x,y);
limx:=x+w;
limy:=y+h;
for iii:=i to n-1 do readln(f);
for ii:=1 to m do begin
readln(f,xx,yy);
if(xx>=x)and(xx<=limx)and(yy>=y)and(yy<=limy)then inc(kk);
end;
close(f);
reset(f);
for iii:=1 to i+1 do readln(f);
end;
writeln(g,kk);
close(f);
close(g);
end.