input = readlines()
n, d = input.shift.chomp.split("\s").map{|x| x.to_i}

cnt = 0
input.each do |l|
  x, y = l.chomp.split("\s").map{|x| x.to_i}
  dist = Math.sqrt(x*x + y*y)
  cnt += 1 if dist <= d
end

puts cnt
