type point = {x:int; y:int}

let () = Scanf.scanf "%d %d" @@ fun n d ->
  let pp = Array.init n @@ fun _ ->
    Scanf.scanf " %d %d" @@ fun a b -> {x = a; y = b}
  in
  let ans = ref 0 in
  for i = 0 to n - 1 do
    if pp.(i).x * pp.(i).x + pp.(i).y * pp.(i).y <= d * d then ans := !ans + 1
  done;
  Printf.printf "%d\n" !ans