import Data.Functor
main = do
  [k,n,_] <- map read . words <$> getLine
  s <- sum . map read . words <$> getLine
  let r = k*n-s
  putStrLn $ show $ if r >= 0 then r else -1