main = do
	[n,k,_] <- getLine >>= return . map (read::String->Integer) . words
	as <- getLine >>= return . sum . map read . words
	let rest = n * k - as
	print $ if rest < 0 then -1 else rest