  Program Main

    Implicit None

    Integer, Allocatable :: A(:) 
    Integer              :: i,j,H,N,s,dum
    Logical              :: win

    win = .False.
    H = 0 ; N = 0
    Read(*,*) H,N
    Allocate (A(N)); A(:) = 0.0d0 
    Read(*,*)(A(i),i=1,N)

    Loop:Do i = 1,N
            H = H - A(i)
            If (H <= 0) then
               win = .True.
               Exit Loop
            Endif
         Enddo Loop

    If (win) then
       Write(*,"(a)")"Yes"
    Else
       Write(*,"(a)")"No"
    Endif

    Deallocate(A)

  End Program
