{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
import           Control.Arrow

main :: IO ()
main = do
  [_, _, x] <- getInts
  as <- getInts
  print . uncurry min . (length *** length) $ span (< x) as

getInts :: IO [Int]
getInts = map read . words <$> getLine
