main :: IO ()
main = interact $ (++ "\n") . show . solve . map read . words

solve :: [Int] -> Int
solve (k:n:_:ages) 
    | leftover < 0 = -1
    | otherwise    = leftover
  where 
    leftover = (k * n) - sum ages
solve _ = -1