main = do
    [k, n, f] <- map read . words <$> getLine
    a <- map read . words <$> getLine
    print $ max (-1) (k * n - sum a)