#pragma GCC optimize("Ofast")
#include <bits/stdc++.h>
using namespace std;
#define rep(i, n) for(int i = 0; i < (n); ++i)
#define all(x) (x).begin(),(x).end()
#define ln '\n'
constexpr long long MOD = 1000000007LL;
//constexpr long long MOD = 998244353LL;
typedef long long ll;
typedef unsigned long long ull; 
typedef pair<int, int> pii;
typedef pair<long long, long long> pll;
template<class T> inline bool chmax(T &a, T b) { if (a < b) { a = b; return true;} return false; }
template<class T> inline bool chmin(T &a, T b) { if (a > b) { a = b; return true;} return false; }
///////////////////////////////////////////////////////////////////////////////////////////////////

int main() {
    ios::sync_with_stdio(false); cin.tie(nullptr);
    ll N,X,Y,Z; cin >> N >> X >> Y >> Z;
    vector<ll> A(N);
    rep(i,N) cin >> A[i];

    sort(all(A));
    reverse(all(A));
    rep(i,N) {
        ll p = A[i]/10000;
        if (p > Z) {
            A[i] -= Z*10000;
            Z = 0;
            break;
        }
        A[i] %= 10000;
        Z -= p;
    }
    sort(all(A));
    reverse(all(A));
    rep(i,N) {
        if (Z == 0) {
            ll p = A[i]/5000;
            if (p > Y) {
                A[i] -= Y*5000;
                Y = 0;
                break;
            }
            A[i] %= 5000;
            Y -= p;
        } else {
            A[i] = -1;
            Z--;
        }
    }
    sort(all(A));
    reverse(all(A));
    rep(i,N) {
        if (A[i]==-1) continue;
        if (Y==0 and Z==0) {
            ll cnt = A[i]/1000 + 1;
            if (cnt > X) {
                cout << "No" << ln;
                return 0;
            }
            X -= cnt;
        } else if (Z==0) {
            Y--;
        } else {
            Z--;
        }
    }

    cout << "Yes" << ln;
}