34 pascal abc, на циклы, нужен цикл с условием, предусловием или постусловием, 9 класс! подробно программу ! дано натуральное n. вычислить: s=1/2^2+1/4^2+1/6^2+/(2n)^2

Var 
s,i:integer;

begin
readln(n);

For i=0 to n-1 do begin
if (i mod 2 = 1) then i:=i+1;
s:=s+1/((2+i)(2+i))
end;
end.