module Main where
import Control.Monad
import Control.Applicative
import Data.Maybe
import Data.List
import qualified Text.Printf
import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString as BC

import           Data.Map (Map)
import qualified Data.Map.Strict as Map

------------------------------------------

main :: IO ()
main = do
  n <- readInt
  if n == 0 then return ()
  else do
  ans <- filter ((> (div n 2)) . snd)<$> Map.assocs <$> foldr countIt Map.empty <$> readInts
  putStrLn $ if ans == [] then "NO COLOR" else show (fst $ head ans)
  main

countIt :: Int -> Map Int Int -> Map Int Int
countIt k m = Map.alter upd k m
  where upd Nothing = Just 1
        upd (Just v) = Just (v+1)


------------------------------------------

{- Int input -}

parseInt :: BC.ByteString -> Int
parseInt = fst . fromJust . BC.readInt

parseInts :: BC.ByteString -> [Int]
parseInts = map parseInt <$> BC.words

readInt :: IO Int
readInt = parseInt <$> BC.getLine

readInts :: IO [Int]
readInts = parseInts <$> BC.getLine

{- Double Formatting -}

doubleFmt :: Double -> String
doubleFmt = Text.Printf.printf "%.12f"