 program sample1
      implicit none
      
      integer N,M,A(1000),i,S,count
      read(*,*) N,M
      read(*,*) (A(i),i=1,N)
      count=0
      S=0
      do i=1,N
         S=A(i)+S
      end do
      do i=1,N   
         if (A(i)>=S/4.0/M) then
            count=count+1
         end if
      end do
      if (count>=M) then
          write(*,*) "Yes"
      else
          write(*,*)"No"
      end if
      
      stop 
      end program sample1


