N, K = gets.split.map(&:to_i)
P = gets.split.map(&:to_i)

ans = 0

0.upto(400) do |x|
  cnt = 0

  P.each do |y|
    cnt += 1 if x <= y
  end

  ans = cnt if K >= cnt && ans < cnt
end

puts ans