$n=<>;chop,$a{$_}++for<>;@a=sort{$b-$a}values%a;print$n>2*$a[0]-2?YES:NO,$/