(define-values (k n f)
 (apply values (map string->number (string-split (read-line) " "))))
(define as (map string->number (string-split (read-line) " ")))

(print (let ((remining (- (* k n) (fold + 0 as))))
           (cond ((< remining -1) -1)
                 (else remining))))