main = do
  _ <- getLine
  ns <- fmap (\s -> map (\c -> read c ::Int) (words s)) getLine
  putStrLn $ show $ sum ns