module Main where

solve m as
	| (<=) m $ length $ filter (>= ((sum as) / (4 * (fromIntegral m)))) as = "Yes"
	| otherwise = "No"

main = do
	line1 <- getLine
	line2 <- getLine
	let m = read . last . words $ line1
	let as = map (read) . words $ line2
	putStrLn $ solve m as



