Запишите алгоритм ** Паскале, пожалуйста.

Question

Запишите алгоритм на Паскале, пожалуйста.

---

Answer 1

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln(Range(0,ReadInteger('N=')).Select(x->1/(2*x+1))
    .Aggregate(0.0,(x,y)->x+y))
end.

Тестовое решение:
N= 10
2.1808745777786

Answer 2

Var s: real; 
  begin     
    write('Введите n: ');   
    var n := ReadInteger;      
     s:=1;     
    for var i:=0 to n do  begin         
        s:=s+1/(2*N+1);       
    end;     
 writeln('Ответ ', s);     
end.

Comments

  s:=s+1/(2*N+1);    в этой строчке лучше написать   s:=s+1/(2*n+1);    

---

Попытки использовать Паскаль-2015, молодчинка))