import Data.List

main = do
  li <- getLine
  let [k,n,_] = map read $ words li
  li <- getLine
  let aa = sum $ map read $ words li
  print $ compute (k*n) aa

compute kn aa
  | kn >= aa = kn - aa
  | True = -1