#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

#define rd(v) long v=0;{int _c;while(_c=*rp++-48,_c>=0)v=v*10+_c;}
#define rep(v,e) for(long v=0;v<e;++v)

long e[12];

void f(long a,long b,long c,long i){
	if(i==0){
		write(1,"Yes",3);
		_exit(0);
	}
	--i;
	if(a-e[i]>=0) f(a-e[i],b,c,i);
	if(b-e[i]>=0) f(a,b-e[i],c,i);
	if(c-e[i]>=0) f(a,b,c-e[i],i);
}

main(){
	char rbuf[1024];
	read(0,rbuf,sizeof rbuf);
	char*rp=rbuf;
	rd(n);
	long s=0;
	rep(i,n){
		rd(ei);
		e[i]=ei;
		s+=ei;
	}
	long k=s/3;
	if(k*3==s&&k-e[n-1]>=0){
		f(k-e[n-1],k,k,n-1);
	}
	write(1,"No",2);
	_exit(0);
}