program test
 implicit none
 integer(8)::N,i,ans
 real(8)::X,Y,D
 read*,N,D
 ans=0
 do i=1,N
 	read*,X,Y
 	if(sqrt(X*X+Y*Y)<=D) then
    	ans=ans+1
    else 
    	ans=ans
    end if
end do
print*,ans
end program test