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