Промежутки возрастания

[daniil123]

Дан массив из N(1<=N<=100000)целых чисел. Найти количество участков, состоящих по крайней мере из двух элементов, на которых его элементы строго возрастают. Участки, целиком содержащиеся внутри других участков возрастания не считать.
В первой строке дано натуральное число N, во второй - N целых чисел.
Выведите количество участков возрастания.
Пример:
Вход:5
1 3 2 3 4
Выход:
2

[TinMan]

  if a[1]<a[2] then k:=1 else k:= 0;
  for i:=2 to n-1 do if (a[i-1]>=a[i]) and (a[i]<a[i+1]) then inc(k);