program main
integer :: n,m,pop,tmp
integer,allocatable :: a(:)

read(*,*)n,m
allocate(a(n))
read(*,*)a(1:n)
tmp = sum(a)
do i = 1,m
pop = maxloc(a,1)
if (tmp/(4*m) > a(pop))then
write(*,*)'No'
stop
end if
a(pop)=0
end do

write(*,*)'Yes'
end program main