[lmikle]

A чего тут непонятного?
Значение элемента должно быть меньше его индекса в массиве.

Код:

var
  I : Integer;
  S : Integer;
begin
  S := 0;
  For I := Low(A) To High(A) Do
    If A[i] < I Then S := S + A[i];