main = do
  [k, n, f] <- (map read . words) <$> getLine
  as <- (map read . words) <$> getLine
  putStrLn . show $ if k * n < (sum as) then -1 else k * n - (sum as)