solve :: [Int] -> Bool
solve = even . sum . map (`mod` 2)

yesno :: Bool -> String
yesno True = "YES"
yesno False = "NO"

main :: IO ()
main = getLine >> getLine >>= mapM readIO . words >>= putStrLn . yesno . solve
