import Control.Applicative
import Text.Printf
import Data.Fixed (Pico)

-- input
main = do
  n <- fmap (read :: String -> Int) . words <$> getLine
  ns <- fmap (read :: String -> Pico) . lines <$> getContents
  putStrLn $ init $ init $ show (sum ns)