import Data.Bool
import Data.List

main = do
 n <- readLn
 as <- words <$> getContents
 putStrLn $ bool "NO" "YES" (eto n as)

eto n as = emax <= div (n+1) 2
 where emax = maximum $ map length $ group $ sort as