import Control.Monad
import Data.List
 
main = do
  [n, a, b] <- map read . words <$> getLine
  hs <- sortBy (\x y -> compare y x) . map read <$> replicateM n getLine
  print $ f a b 0 hs
 
f a b k (h:hs)
  | h <= k * b = k
  | otherwise = f a b (k + 1) (g ((h-a+b):hs))
 
g [x] = [x]
g (x:y:zs)
  | x < y = y : (g (x:zs))
  | otherwise = (x:y:zs)