program distance
    integer :: n, d, i
    integer :: ans = 0
    integer(8), allocatable :: x(:)
    integer(8), allocatable :: y(:)

    read *, n, d
    allocate(x(n))
    allocate(y(n))
    do i = 1, n
        read *, x(i), y(i)
        if(d >= sqrt(real((x(i)**2)+(y(i)**2))))then
            ans = ans+1
        end if
    end do
    print *, ans
end program