import Data.Functor
main = do
  [k,n,_] <- map read . words <$> getLine
  s <- sum . map read . words <$> getLine
  putStrLn $ show $ k*n - s