n,*x=$<.map{_1.split.map &:to_i}
p (0...n[0]).sum{a,b=x[_1-1];c,d=x[_1];a*d-b*c}