import Control.Monad
import Control.Applicative

f :: [Int] -> Int
f xs = sum xs - length xs

solver :: [Int] -> Int
solver = f

main :: IO ()
main = do
    _ <- getLine
    s <- (map read) . words <$> getLine
    print (solver s)
