import Control.Applicative ((<$>))
import Control.Monad (unless)
import Data.List (sort, group, maximumBy)
import Data.Function (on)
import Data.Bool (bool)

main :: IO ()
main = do
  n <- readLn
  unless (n == 0) $ do
    solve n <$> map read <$> words <$> getLine >>= putStrLn
    main

solve :: Int -> [Int] -> String
solve n xs = bool "NO COLOR" (show . head $ cs) $ length cs > (n `div` 2)
  where cs = maximumBy (compare `on` length) . group . sort $ xs

