program Project4;

type
  vector=record
    x,y: real;
  end;
var
  n,i: byte;
  k: array[0..100] of vector;
  b,m: real;
const
  pi=3.1415926535;

begin
  write('Input (byte) n='); readln(n);
  write('Input (real) B='); readln(b);
  write('Input (real) x[0]='); readln(k[0].x);
  write('Input (real) y[0]='); readln(k[0].y);
  for i:=1 to n do with k[i] do
  begin
    write('Input (real) x[',i,']='); readln(x);
    write('Input (real) y[',i,']='); readln(y);
  end;
  for i:=1 to n do with k[i] do
    if sqrt(sqr(x[i]-k[0].x)+sqr(y[i]-k[0].y))<=(b/2) then
      m:=m+1;
  writeln('Point count =', m);
  readln
end.