main::IO()
main = do
  k:n:f:_ <- fmap (fmap read . words) getLine
  xs <- fmap (take f . fmap read . words) getLine
  let result k n xs = if calc<0 then (-1) else calc
                      where calc =k*n-sum xs
  print $ result k n xs