Тут ошибка. исправьте . program abc; var n,i: integer; s: real; begin readln(n); for i: =1 to n do s: =s+1/sqr(2*n+1); write(‘s= ‘, s); end. само . дано натуральное число n вычислить. s=1/3^2+1/5^2+1/7^2++1/(2n+1)^2

Ошибка в строке
write(‘s= ‘, s);

вместо ‘ надо ставить  '

program abc;

var
  n, i: integer;
  s: real;

begin
  readln(n);
  for i := 1 to n do
    s := s + 1 / sqr(2 * i + 1);
  write('s= ', s);
end.

Var n,i: integer;
s:real;
begin
readln(n);
i:=3;
while i<= (2*n+1) do
begin
s:=s+(1/sqr(2*i+1));
i:=i+2
end;
writeln('s= ', s)
end.