(k,n),a=$<.map{|l|l.split.map &:to_i}
p [k*n-a.inject(:+),-1].max