k,n,_,*a=$<.read.split.map &:to_i;b=k*n-a.reduce(:+);p b<0?-1:b