import Data.List
import Control.Monad

main::IO()
main = do
    n <- readLn::IO Int
    xs <- map read . words <$> getLine::IO [Int] 
    print $ (solve n . splitAt n . sort) xs

solve::Int -> ([Int],[Int])-> Int
solve n xs = (sum . take n . snd) xs
