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