помогите решить задачу по паскалю пожалуйста)

i1 := 1;
i2 := n;
y := 0;
z := +1;
repeat
y := y + z * x[i1] * x[i2];
inc(i1);
dec(i2);
z := -z;
until i1 > n;