program swap
  implicit none

  integer :: N, M
  integer :: i, j
  integer :: sum_vote
  real(kind=8) :: rate
  integer, allocatable :: A(:)

  read *, N, M

  allocate(A(1:N))
  read *, A(:)

  sum_vote = sum(A(:))
  rate = sum_vote * (dble(4*M)**(-1))

  j = 0
  do i = 1, N
    if (A(i) > rate) then
      j = j + 1
    end if
  end do

  if (j >= M) then
    print *, "Yes"
  else
    print *, "No"
  end if
end program swap
