Произвести вычисления элементов массива по формуле - Turbo Pascal

Формулировка задачи:

Помогите разобраться, что написано вверху суммы. Вот само решение:

Program Task48;
Var
x : Array [1..1000] of Real;
i,n : Integer;
s: Real;
Begin
Write ('n=');
Readln(n);
x[1]:=2;
x[2]:=1;
Writeln ('Введите элементы массива X[',n,']');
For i:=3 to n do
x[i]:=0.8*x[i-1]+0.15*x[i-2];
Writeln('Сформирован массив X[',n,']:');
For i:=1 to n do
Write(x[i]:8:3);
Writeln;
s:=0;
for i:=1 to n do
s:=s+x[i];
Writeln('s=',s:0:4);
Readln;
End.

Решение задачи: «Произвести вычисления элементов массива по формуле»

Листинг программы

Program Task48;
Var i,n : Integer;
    x,x1,x2,s: Real;
Begin
repeat
Write ('n>2 n=');
Readln(n);
until n>2;
x1:=2;
x2:=1;
s:=3;
For i:=3 to n do
 begin
  x:=0.8*x2+0.15*x1;
  s:=s+x;
  x1:=x2;
  x2:=x
 end;
Writeln('s=',s:0:4);
Readln;
End.

Объяснение кода листинга программы

Программа Task48 начинается с объявления переменных i, n, x, x1, x2, s типа Integer и Real соответственно.
В цикле repeat-until запрашивается значение переменной n.
Переменные x1 и x2 инициализируются значениями 2 и 1 соответственно.
Переменная s инициализируется значением 3.
В цикле for от i=3 до n происходит вычисление значения переменной x по формуле 0.8x2 + 0.15x1 и добавление этого значения к переменной s.
После каждого вычисления значения x1 и x2 обновляются, при этом x2 становится равным x1.
Выводится значение переменной s с точностью до 4 знаков после запятой.
Программа завершается вызовом функции Readln.