program example
	implicit none

	integer,allocatable :: A(:)
    integer :: wa=0,H,N,i
    
    read(*,*) H,N
    
    allocate(A(N))
    
    read(*,*) A(:)
    
    wa=sum(A(:))
    
    if(wa<H) then
    	write(*,*) "No"
    else
    	write(*,*) "Yes"
    end if

 end program example