program example
	implicit none

	integer :: N,M,wa=0,i
    integer,allocatable :: A(:)
    
    read(*,*) N,M
    
    allocate(A(N))
    
    read(*,*) A

    do i=1,N
    	if(A(i)>=(sum(A)/(4.0d0*dble(M)))) then
        	wa=wa+1
        end if
    end do
    
    if(wa>=M) then
    	write(*,*) "Yes"
    else
    	write(*,*) "No"
        
    end if
    

end program example
