Помогите с условиями ABC PASCAL

[NikSix]

Добрый день
Несколько дней мучаюсь с вопросом по поводу этой задачи, препод не принял моего решения, а как применить теорию из математики я не знаю, буду признателен за любую помощь, мне бы просто разобраться как формулу эту записать правильно
Думал даже использовать несколько циклов или создать отдельные функции для ak-1 и ak+11, но не уверен в правильности своего решения
мой код

program dz178g;
type
  arrayOfIntegerT = array[1..100] of integer;

var
  arrayOfInteger:arrayOfIntegerT;
  n:integer;
  
  function createArray(localLenght:integer) : arrayOfIntegerT;
  var i:integer; localArray:arrayOfIntegerT;
      begin
        randomize;
        for i:=1 to localLenght do
          begin
            localArray[i]:=random(99)+1;
          end;
          createArray:=localArray;
      end;
  
  function ElementSumChain(localArray:arrayOfIntegerT;localLenght:integer): integer ;
    var i,sum:integer;
    begin
      sum:=0;
      for i:=1 to localLenght do 
        begin
            if (localArray[i])<((localArray[i]*(i-1))+(localArray[i]*(i+11)))/2 then
            sum:=sum+1;
            writeln(localArray[i],'<((',localArray[i],'',(i-1),')+(',localArray[i],'',i+11,'))/2');
        end;
       ElementSumChain:=sum;
    end;

begin
  write('Введите n: '); readln(n);
  arrayOfInteger:=createArray(n);
  write('количество членов a: ',ElementSumChain(arrayOfInteger,n));
end.

[p51x]

Открою вам секрет: индекс внизу - это индекс, а не умножение.

[NikSix]

p51x, Спасибо, однако я это уже понял, но не понимаю как вписать в условия этот индекс
Код мой ошибочный, это я признаю, поэтому и создал эту тему

[p51x]

localArray[i-1] localArray[i+11]

[BDA]

if (
    (i - 1 >= 1) and
    (i + 11 <= localLenght) and
    (localArray[i] < (localArray[i - 1] + localArray[i + 11]) / 2)
) then
  inc(sum);

Или можно поправить границы цикла, чтобы не проверять индексы.

[NikSix]

Ответ был так рядом, спасибо большое ♥