program main
  implicit none
  integer :: h, n, i
  integer, allocatable :: a(:)
  read (*, *) h, n
  allocate (a(n))
  read (*, *) a(:)
  if (sum(a) < h) then
    write (*, "(a)") "No"
  else
    write (*, "(a)") "Yes"
  end if
end program main
