module Main where

import Data.Bool

main :: IO ()
main = do
  { [k,n,f] <- getInts
  ; xs      <- getInts
  ; let r = k*n - sum xs
  ; print $ bool (-1) r (r >= 0)
  }

getInts :: IO [Int]
getInts = map read . words <$> getLine