
import qualified Data.ByteString.Char8 as BS
import Data.List (unfoldr)
import Data.Char (isSpace)

readInt = B.readInt . B.dropWhile isSpace

main = do
  n <- read <$> getLine
  as <- take n . unfoldr readInt <$> B.getLine
  print $ sum as - (n :: Int)