Imports System

Module Program
    Sub Main(args As String())

        Dim ND() As Integer = Console.ReadLine().Split(" ").Select(Function(x) Integer.Parse(x)).ToArray()
        Dim ans As Integer = 0
        For i As Integer = 0 To ND(0) - 1
            Dim tmp() As Integer = Console.ReadLine().Split(" ").Select(Function(x) Integer.Parse(x)).ToArray()

            If Math.Sqrt(tmp(0) ^ 2 + tmp(1) ^ 2) <= ND(1) Then
                ans += 1
            End If
        Next

        Console.WriteLine(ans)

    End Sub
End Module
