Я не очень понял созданную программу по примеру

[Craig]

Вычислить выражение, если дано натуральное число N
Есть пример
program Drob;

var
R:real;
N:integer;
begin

Write(' Введите нечетное N=');
Readln(N);
if odd(N) then
begin
R:=N+1/(N+2);
While (N>2) do
begin
N:=N-2;
R:=N+1/R;
end;
R:=1/R;
end
else Writeln('Ошибка ввода N-четное');
Writeln(' R= ',R);
end.

Я сделал свою программу по примеру но работает неправильно
Program Drob;
var k,n,a:integer; s,b:real;
begin
s:=0;
writeln ('Введите n');
readln(n);
a:=1;
b:=0;
while (a<=n) do
begin
for k:=1 to a do
b:=(power(-1,k)*(k+1))/(k-1)+1;
s:=s+1/b;
b:=0;
a:=a+1;
end;
writeln('Сумма равна ',s);
end.

Как выражение бы написать хз там понему работал

[Mad_Cat]

function Fakt (K:integer): longint;
var f:Longint;
begin
if K=1 then begin Fakt:=1; exit;end;
f:=1;
for j=2 to k do f:=f*j;
fact:=f;
end;

[Craig]

Что ты цытировал?

[Mad_Cat]

Что ты цытировал?

я не цитировал - я исправлял то что ты написал в функции Fact

[Craig]

Вот тут выражение)