Вопрос Очень нужно решить программирование!!

[гюрза]

Дана непустая последовательность не нулевых целых чисел, за которой следует 0. Определить, сколько из них больше своих "соседей", т. е. предыдущего и последующего чисел.

 

[6665464]

if (a[i+1] < a) and (a > a[i-1]) then inc(k);