Pascal. Задача. Помогите

[Demon1911]

Pascal. Задача. Помогите

S=1\3+2\5+3\7+...........+N\2N+1
составить программу вычисления суммы

помогите плиз с задачей

 

[AlexZir]

var n:integer; s:longint;
begin
writeln('Input N');
readln(n);
s:=0;
while n>=1 do
begin
s:=s+n/(2*n+1);
dec(n);
end;
writeln('Summa =',s);
readln
end.