помогите в паскале! легкий пример

Если я не напутал с синтаксисом, то что-то подобное:

program p1;
var
i, n: integer;
S: real;

begin
ReadLn(n);
S := 0;
for i := 1 to n do
begin
S: = S + 1 / (2 * i + 1)^2;
end;
WriteLn(S);
end.