program test02
 integer H, N
 integer,allocatable :: A(:)
 integer :: kougekisum=0
 integer i

 read *, H, N
 allocate(A(N))

 read *,A

 do i=1,N
  kougekisum=kougekisum+A(i)
 end do

 if ( H <= kougekisum ) then
  print *, 'Yes'
 else
  print *, 'No'
 end if
 
endprogram test02
