одномерные масивы

[коровук виктор]

друзья помогите в написании программы. Пусть даны натуральные числа n, а1 , а2 , ..., а n . Определите количество членов а i последовательности а1 , а2 , ..., а n : удовлетворяющих условию: а i < (а i + а i+1)/2;
Очень нуждаюсь в помощи специалиста по ТР. Пожалуста помогите!!!
Изображения

[ZX Spectrum-128]

For i:=1 to n-1 do
  If a[i]<(a[i]+a[i+1]) div 2 then
     // удовлетворяет