      PROGRAM popularVote
      IMPLICIT NONE
      integer(16) :: m,n
      integer(16) :: a(100)
      logical :: mask(100)
      real(16) :: th !threshold
      
      read*,n,m
      read*,a(1:n)
      
      th = real(sum(a(1:n))) / real( 4*m )
      
      mask = a>=th
      
      if( count(mask(1:n))>=m )then
        print*,'Yes'
      else
        print*,'No'
      end if
      
      
      
      
      END PROGRAM