4

program Rasst;
var
x,y,r:array [1..100] of real;
x0,y0:real;
i,n,s,r1,r2:integer;
begin
readln(x0,y0);
readln(r1);
readln(r2);
readln(n);
for i:=1 to n do readln(x[i],y[i]);
for i:=1 to n do
r[i]:=sqrt(sqr(abs(x0-x[i]))+sqr(abs(y0-y[i])));
s:=0;
for i:=1 to n do
if r[i]>=r1 then if r[i]<=r2 then s:=s+1;
writeln(s);
end.