pisya

var

 r, x0, y0, n, i, z: integer;

 x: array[1..10] of integer;

 y: array[1..10] of integer;

 input,output:text;

begin

 assign (input,'input.txt');

 assign (output,'output.txt');

 reset(input);

 readln(input,r,n); 

 z := 0;

 read(input,x0, y0);

 for i := 1 to n do

 begin

  read(input,x[i], y[i]);  

 end;

 close(input);

 for i := 1 to n do

 begin

  if (sqr(x[i] - x0) + sqr(y[i] - y0)) <= r then

  begin

   z := z + 1; 

  end;

 end;

 rewrite(output);  

 if z > 0 then

  write(output,'NO')

 else

  write(output,'YES');

  close(output);

end.