program popular

 implicit none
 integer :: n,m,i,total,choice,minm
 integer,allocatable,dimension(:) :: a

 read*,n,m
 
 allocate(a(n))

 read*,a(1:n)
 
 total=0
 do i=1,n
  total=total+a(i)
 end do

 minm=total/(4*m)

 choice=0
 do i=1,n
  if(a(i)>=minm) choice=choice+1
 end do

 if(choice>=m) then
   print*,'Yes'
 else
   print*,'No'
 end if


end program popular
    