Scanf.scanf "%d %d" (fun n m ->
    let a = Array.init n (fun _ -> Scanf.scanf " %d" (fun a -> a)) in
    Array.sort (fun a b -> compare b a) a;
    let sum = Array.fold_left (+) 0 a in
    print_endline @@ if a.(m - 1) * 4 * m < sum then "No" else "Yes"
)