import Data.List
import Data.Char

main = getContents >>= print . block . map read . words

block (l:_:ws) = length $ takeWhile (<= l) (scanl1 (+) (sort ws))