import Data.List
import Data.Char
import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as BS8
import qualified Data.Vector as Vector
import Data.Vector ((!))

main :: IO ()
main = do
  [n, d] <- unfoldr (BS8.readInt . BS8.dropWhile isSpace) <$> BS8.getLine
  p <- replicateM n $ unfoldr (BS8.readInt . BS8.dropWhile isSpace) <$> BS8.getLine

  print $ length $ filter (\a -> a <= fromIntegral d) $ map (\[x, y] -> fromIntegral(x^2+y^2) ** 0.5) p
