solve :: Double -> [[Double]] -> Int
solve d xs = length . filter (\x -> dist x <= d) $ xs
    where dist [a, b] = sqrt $ a*a + b*b

main = do
    [_, d] <- map read . words <$> getLine
    contents <- map (map read . words) . lines <$> getContents
    print $ solve d contents