program bm
    implicit none
    integer::N,M
    integer,allocatable,dimension(:)::A
    integer::SUMA,CNT=0
    integer::i
    read*,N,M
    allocate(A(N))
    read*,A
    SUMA=sum(A)
    do i=1,N
        if(A(I)*4*M>=SUMA)cnt=cnt+1
    end do
    print"(A)",trim(merge("Yes","No ",CNT>=M))
end program bm