Module Program
    Sub Main(args As String())
        Dim ND = Console.ReadLine().Split(" ").Select(Function(o)
                                                          Return Long.Parse(o)
                                                      End Function).ToArray()
        Dim N = ND(0), D = ND(1)

        Dim ans = 0
        For i = 1 To N
            Dim XY = Console.ReadLine().Split(" ").Select(Function(o)
                                                              Return Long.Parse(o)
                                                          End Function).ToArray()
            If Math.Sqrt(XY(0) * XY(0) + XY(1) * XY(1)) <= D Then
                ans += 1
            End If
        Next

        Console.WriteLine(ans)
    End Sub
End Module