solve :: Integral a => a -> [a] -> a
solve n as = sum as

main = do
    n  <- readLn
    as <- map read . words <$> getLine
    print $ solve n as