import Control.Applicative ((<$>))

main :: IO ()
main = do
    [k, n, f] <- map read . words <$> getLine
    ages <- map read . words <$> getLine
    let eaten = sum ages
    let res = k * n - eaten
    print $ if res >= 0 then res else -1