# n問から, m人が, v選ぶ, 上位p個

n,m,v,p = gets.split(" ").map(&:to_i)
a = gets.split(" ").map(&:to_i)
c = 0
l = a.sort[-p]
a.each { |i|
    if i+m > l-1 then
        c += 1

        if n-v < p then
            a.each { |i|
                if i+m > l then
                    c -= 1
                end
            }
        end        

    end
}

print c
