program Calculate_S;varn, i: integer;S: real;beginwriteln('Введите натуральное число n:');readln(n);
i := 1;S := 0;
while i <= n dobeginS := S + 1 / sqr(2 * i + 1);i := i + 1;end;
writeln('S = ', S);end.
program Calculate_S;
var
n, i: integer;
S: real;
begin
writeln('Введите натуральное число n:');
readln(n);
i := 1;
S := 0;
while i <= n do
begin
S := S + 1 / sqr(2 * i + 1);
i := i + 1;
end;
writeln('S = ', S);
end.