def g i,j,r;r<1?d(i+1):j<$n&&((!$f[j]&&$a[j]<=r&&($f[j]=1;t=g(i,j+1,r-$a[j]);$f[j]=$';t))||g(i,j+1,r))end
def d i;i==$n||$f[i]&&(g(i,i+1,$a[i])||d(i+1))end
($a=gets.split.map(&:to_i).sort.reverse;$f=[1];puts d(0)?:YES:"NO")while 0<$n=gets.to_i