let () = Scanf.scanf "%d %d\n" @@ fun n m ->
  let as_ = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun a -> a in
  let somme = Array.fold_left ( + ) 0 as_ in
  print_endline @@
  if m <= Array.fold_right (fun a -> ( + ) @@ if a * 4 * m < somme then 0 else 1) as_ 0
  then "Yes"
  else "No"