n = read_line.to_i
a = read_line.split.map(&.to_i)
last = 0i64
1.upto(n - 1) do |i|
  last += a[i - 1] < a[i] ? 1 : -1
end
ans = 0i64
cur = 0i64
1.upto(n - 1) do |i|
  cur += a[i - 1] < a[i] ? 1 : -1
  bottom = {-i, last - (n - 1 - i)}.max
  ans += (cur - bottom) // 2
end
puts ans