Уравнение (списки)

[Максим2014]

Здраствуйте! Подскажите пожалуйста как вычислить по данному уравнению:

Даны натуральное число n, действительные числа x1, ...xn. Вычислить:

в) (x1 + x2 + 2xn)(x2 + x3 + 2xx-1)... (xn-1 + xn + 2x2).

Для решения этой задачи полезен список, изображенный на рис. 27.
[ATTACH]1733[/ATTACH]

Программный код(писал на pascal ABC.NET):

program max;
type
ukazatel=^s;
s=record

data:integer;
next:ukazatel;
prev:ukazatel;
end;

var
b,i,a:integer;
x,x2,x3,n:ukazatel;
begin
write('Введите количество эелементов:');
read(b);
for i:=1 to b do
begin
write('Введите номер', i ,' элемента:');
read(a);

new(x);
x^.data:=a;
x^.next:=x2;
x^.prev:=nil;

new(x2);
x2^.data:=a;
x2^.next:=x3;
x2^.prev:=x2;

new(x3);
x3^.data:=a;
x3^.next:=n ;
x3^.prev:=x ;

new(n);
n^.data:=a;
n^.next:=x3 ;
n^.prev:=nil ;

end;
end.

[Максим2014]

Помогите пожалуйста,кто понимает, срочно надо.

[Naeel Maqsudov]

1) "2xx-1" - имеется в виду 2 * X(n-1) ?
2) С чего это Вы решили, что для вычисления этого произведения "полезны" двусвязные списки? Они тут совершенно бесполезны, даже точнее сказать вредны