В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
n: = 10; s: = 0;
for i: = 1 to n do begin
if A[i]-A[i-1] < i then
s: = s + i;
end;
В начале выполнения этого фрагмента в массиве находились числа Фибоначчи: 1,1,2,3,5,8,13,21,34,55,89, т.е. A[0] = 1, A[1] = 1, A[2] = 2 и т.д. Чему будет равно значение переменной s после выполнения данной программы?

A[i]-A[i-1] это сдвиг чисел Фибоначчи на 1 вперед
т.е. 0,1,1,2,3,5,8,13,21,34,55,89 
A[i]-A[i-1]       i
      0             1     - подходит
      1             2   - подходит
      1             3   - подходит
      2             4   - подходит
      3             5   - подходит
      5             6   - подходит
      8             7   -не подходит
     13            8
     21            9
     34           10
     55           11
     89           12
s=1+2+3+4+5+6=21.