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