use strict;
use warnings;

my($k, $n, $f) = split ' ', <STDIN>;
my @fl = split ' ', <STDIN>;

my $mame = $k * $n;
my $f_sum = eval join('+', @fl);
print $mame >= $f_sum ? $mame - $f_sum : -1;