/*
　　　∫ ∫ ∫
　　　ノヽ
　　（＿　 ）
　（＿　　　 ）
（＿＿＿＿＿＿ ）
　ヽ(´･ω･)ﾉ　
　　 |　 /
　　 UU
*/
#pragma region macro
#include <bits/stdc++.h>
typedef long long int64;
using namespace std;
using P = pair<int64, int64>;
typedef vector<int> vi;
const int MOD = (int)1e9 + 7;
const int64 INF = 1LL << 62;
const int inf = 1<<30;
template<class T>bool chmax(T &a, const T &b) { if (a<b) { a=b; return 1; } return 0; }
template<class T>bool chmin(T &a, const T &b) { if (b<a) { a=b; return 1; } return 0; }
#define REP(i, n) for (int i = 0; i < (n); i++)
#define FOR(i,s,n) for (int i = s; i < (n); i++)
#define ALL(obj) (obj).begin(), (obj).end() //コンテナじゃないと使えない!!
#define debug(x) cerr << #x << ": " << x << "\n";
#define mp make_pair
#define bn '\n'
template <typename T>
ostream& operator<<(ostream& os, const vector<T> &V){
    int N = V.size();
    REP(i,N){
        os << V[i];
        if (i!=N-1) os << " ";
    }
    os << "\n";
    return os;
}
template <typename T,typename S>
ostream& operator<<(ostream& os, pair<T,S> const&P){
    os << "(";
    os << P.first;
    os << " , ";
    os << P.second;
    os << ")";
    return os;
}
template <typename T>
ostream& operator<<(ostream& os, set<T> &S){
    auto it=S.begin();
    while(it!=S.end()){
        os << *it;
        os << " ";
        it++;
    }
    os << "\n";
    return os;
}
template <typename T>
ostream& operator<<(ostream& os, deque<T> &q){
    for(auto it=q.begin();it<q.end();it++){
        os<<*it;
        os<<" ";
    }
     os<<endl;
    return os;
}
vector<pair<int,int>> dxdy = {mp(0,1),mp(1,0),mp(-1,0),mp(0,-1)};
#pragma endregion
//fixed<<setprecision(10)<<ans<<endl;



int main(){
    cin.tie(0);
    ios::sync_with_stdio(false);
    int64 N,X,Y,Z;
    cin >> N >> X >> Y >> Z;
    vector<int64> A(N);
    REP(i,N) cin >> A[i];
    sort(ALL(A));
    int pay;
    for(auto& a:A){
        if(a>=10000 && Z){
            pay = min(a/10000,Z);
            Z-=pay;
            a-=10000*pay;
        }
        if(a>=5000 && Y){
            pay = min(a/5000,Y);
            Y-=pay;
            a-=5000*pay;
        }
    }

    sort(ALL(A),greater<int64>());
    /*
    5000円札が不足していたら5000以上もあり得る
    1万円札が残っているなら、大きい順にそれで払えばいい
    5000円が残っているなら、大きい順にそれで払えばいい
    残りは1000円で払うしかない
    */
    for(auto& a:A){
        if(a>=0){
            if(Z>0){
                Z--;
                continue;
            }
            if(Y>0){
                Y--;
                continue;
            }
            if(a>=1000*X){
                cout << "No" << bn;
                return 0;
            }
            X-=(a+999)/1000;
        }
    }
    cout << "Yes" << bn;
}