СН Светлана Николаева 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;