Pascal, Одномерный массив

[Nastik]

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an удовлетворяющих условию
ak< (a(k-1) + a(k+1))/2

Есть начало,дальше не могу понять!

Program primer;
uses crt;
const n=10;
var M:array[1..n] of real;
i: integer;
begin
clrscr;
for i:= 1 to n do
begin
writeln ('M[',i,']=');
readln (M[i]);
end;

Помогите пожалуйста!

[kakawkin]

чето типа так???

for i:= 1 to n do
begin
writeln ('M[',i,']=');
readln (M[i]);
end;
for i:=1 to n do
begin
b:=a*k;
if b<(i(k-1)+i(k+1))-2 then writeln('!!!');
end;

From Stilet For All: Что выделить код спецтегом для читабельности карма не позволяет?