let nk = readLine()!.split(separator: " ").map{Int($0)!}
let (n,k) = (nk[0],nk[1])
let h = readLine()!.split(separator: " ").map{Int($0)!}
var A = [[Int]]()
for i in 0..<n{
    A.append([i,h[i]])
}
A.sort{ $0[1] < $1[1] }
var X = [Int](), Y = [Int]()
var f = [Bool](repeating: true, count: n)
for i in 1...n{
    let xy = readLine()!.split(separator: " ").map{Int($0)!}
    let (x,y) = (xy[0],xy[1])
    X.append(x); Y.append(y)
}

var cnt = 0
for i in 1..<n{
    for j in 0..<i{
        if f[j] && A[i][1] > A[j][1]{
            let dx = X[A[i][0]] - X[A[j][0]]
            let dy = Y[A[i][0]] - Y[A[j][0]]
            if dx*dx + dy*dy <= k*k{
                f[j] = false
                cnt += 1
            }
        }
    }
}
print(n-cnt)