gets;s=0;$<.map{|s|n,m=s.split.map &:to_i;s+=-~n/2*m};p s