n,d = gets.split.map(&:to_i)
x = []
y = []
n.times do
    line = gets.split.map(&:to_i)
    x << line.shift
    y << line
end
y.flatten!

ans = []

(0...n).each do |i|
    ans << Math.sqrt(x[i].abs ** 2 + y[i].abs ** 2)
end

result = 0
ans.each do |j|
    if d >= j
        result += 1
    end
end

puts result