import Data.List
import Control.Monad


toFloat :: Int -> Double
toFloat = fromRational . toRational

solve [] d = 0
solve (a:as) d = if l01 <= (toFloat d)
                    then 1 + solve as d
                    else solve as d
                    where
                        x = a!!0
                        y = a!!1
                        l01 = sqrt $ toFloat ((x)^2 + (y)^2)

main = do
    [n,d] <- map read . words <$> getLine :: IO [Int]
    xyn <- replicateM n (map read . words <$> getLine) :: IO [[Int]]
    print $ solve xyn d
