n = gets.not_nil!.to_i
a = [] of Int32
(n-1).times do
  a << gets.not_nil!.to_i
end

cnt = 0
ans = 0

n.times do |i|
  b, c = gets.not_nil!.split.map &.to_i
  break if i == n - 1
  cnt += (c - b)
  ans += cnt * a[i]
end

p ans