let n, d = stdin.ReadLine().Split() |> fun x -> int x.[0], float x.[1]
[for _ in 1..n -> stdin.ReadLine().Split() |> fun x -> float x.[0], float x.[1]] |> List.map ((fun (x, y) -> x ** 2. + y ** 2.) >> sqrt)
|> List.filter ((>=) d) |> List.length |> printfn "%d"