Задачка на Delphi.

[Johny58]

Ребят, проблема с задачей 8.5 под буквой в).
Помогите, если знаете как тело написать с вычислением выражения

[Вадим Мошев]

s:=0;
sgn:=1;

for i:=1 to n do begin
	s:=sgn*x[i];
	sgn:=-sgn;
end;