Program ograzi;
type ograda=record x,y:real; end;
var f,g:text;
	o:array[1..50000] of ograda;
	h,w,x,y:real;
	n,m,i,noi:longint;

Procedure cauta;
var i:longint;
begin
	for i:=1 to n do 
begin
	if ((x>=o[i].x) and (x<=o[i].x+w)) and ((y>=o[i].y) and (y<=o[i].y+h)) then
	begin 
	noi:=noi+1;
	break;
	end;
end
end;

begin 
	assign(f,'ograzi.in'); reset(f);
	assign(g,'ograzi.out'); rewrite(g);
	readln(f,n,m,w,h);
	for i:=1 to n do
		readln(f,o[i].x,o[i].y);
	noi:=0;
	for i:=1 to m do
	begin
		readln(f,x,y);
		cauta;
	end;
	writeln(g,noi);
	close(f);
	close(g);
end.