program araiguma
implicit none
integer :: h,n,Dsum,i
integer,allocatable :: a(:)
Dsum = 0
read(*,*)h,n
allocate(a(n))
read(*,*)a(:)
do i = 1,n
    Dsum = Dsum + a(i)
end do
if (Dsum .ge. h) then
    write(*,*)'Yes'
else
    write(*,*)'No'
end if

end program araiguma