program BegB
  implicit none
  integer :: H, N, k
  integer(8),allocatable,dimension(:) :: A
  read(*,*) H, N
  allocate(A(N))

  read(*,*) (A(k) ,k=1,N)
  if(sum(A).ge.H) then
     print*, 'Yes'
  else
     print*, 'No'
  end if


end program BegB