import Control.Arrow
import Control.Monad
import Data.Bits
import Data.Char
import Data.List

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

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