Question

Нужна помощь с объяснением решения данного задания!
Задание было:
Вычислить сумму первых k слагаемых ряда :
1+1/(2^2)-1/(3^2)+1/(4^2)-...1/(k^2)
Вот решение.
var k,z,i:integer; s:real;
begin
readln(k);
z:=-1;
s:=1;
for i:=2 to k do
begin
z:=-z;
s:=s+z/(i*i);
end;
writeln('s = ',s);
end.


КАК тут было учтено то, что когда делим на нечетное число в квадрате, то знак стоит "-"?
В каких строчках? И как это объяснить?