import Data.Function
import Data.List

f :: Int -> [Int] -> Int
f x as = (min `on` length) ss ls
  where (ss,ls) = span (< x) as

main = do
  [_,_,x] <- (map read . words) <$> getLine
  as <- (map read . words) <$> getLine
  print $ f x as