program ABC161_B
    implicit none
    integer n,m,dai,kari,i,j
    integer,allocatable :: a(:)
    read(*,*) n,m
    allocate(a(n))
    read(*,*) a(1:n)
    dai=sum(a(1:n))/4/m
    do j=1,n
        do i=1,n-1
            if(a(i)<=a(i+1)) then
                kari=a(i)
                a(i)=a(i+1)
                a(i+1)=kari
            end if
        end do
    end do
    if(a(m)<dai) write(*,*) 'No'
    if(a(m)>=dai) write(*,*) 'Yes'
end program ABC161_B

