let readIntArray () =
    stdin.ReadLine().Split(" ") |> Array.map int

let choice ok ng bool = if bool then ok else ng

readIntArray ()
|> fun [| _; m |] ->
    let x = readIntArray ()
    let all = x |> Array.reduce (+)
    let border = all / 4 / m - 1
    x
    |> Array.filter ((<) border)
    |> Array.length
    |> ((<=) m)
|> choice "Yes" "No"
|> printfn "%s"
