program abc161b
   implicit none
   integer :: m, n
   integer, allocatable ::  a(:), b(:)
   integer :: i
   real(8) :: m4

   read(*,*) n, m
   allocate(a(n), b(n))
   a(:) = 0
   b(:) = 0
   read(*,*) a(:)

   m4 = 1d0 / (4d0*m) * dble(sum(a))

   do i = 1, n
      if (m4 > a(i)) then
         b(i) = 0
      else
         b(i) = 1
      end if
   end do

   if (sum(b) >= M) then
      print *, "Yes"
   else
      print *, "No"
   end if

end program abc161b
