let () = Scanf.scanf "%d %d\n" @@ fun n d ->
  let xys = List.init n @@ fun _ -> Scanf.scanf "%d %d\n" @@ fun x y -> x, y in
  Printf.printf "%d\n" @@
  List.length @@
  List.filter (fun (x, y) -> x * x + y * y <= d * d) xys