main = interact $ (++ "\n") . show . solve . map (map (\x -> read x :: Int) . words) . take 2 . lines
       where solve = \[[k, n, f], nums] ->
                     let diff = (k * n) - (sum . take f) nums
                     in
                       if diff < 0 then -1 else diff