n,l = gets.split(' ').map(&:to_i)

lines = []
while line = gets
  lines << line.split(' ').map(&:to_i)
end

c = 0
lines.each do |line|
  ans = (line[0] * line[0]) + (line[1] * line[1])
  if ans <= l * l
    c += 1
  end
end

puts c