program speedrun
   implicit none
   integer::H,N
   integer,allocatable,dimension(:)::A
   read*,H,N
   allocate(A(N))
   read*,A
   print"(A)",trim(merge("Yes","No ",sum(A)>=H))
end program speedrun