import Prelude
import Data.List

takeodd :: [a]->[a]
takeodd []=[]
takeodd [x]=[x]
takeodd (x:y:ys)=x:(takeodd ys)

main :: IO ()
main = do
    -- 整数の入力(捨て)
    n <- getLine
    -- スペース区切り整数の入力
    els <- map read . words <$> getLine
    -- 文字列の入力
    -- 出力
    putStrLn$show$sum$takeodd$sort els
