main = do
  [k, n, _] <- fmap (map (\nu -> read nu :: Int) . words) getLine
  a <- fmap (map (\nu -> read nu :: Int) . words) getLine
  print $ if k * n >= sum a then k * n - sum a else -1