Тут по требованию задания надо сделать два разных цикла, хотя на самом деле всё легко вычисляется в одном, а в остальном почти всё как у kaiu: var m, n: integer; s, f: real; begin
f:=1; s:=0; write('n: '); readln;
for m:=1 to n do f:=f*m; m:=1; repeat
m:=m+1; s:=s+1/m until m = n+1;
writeln(f/s) end.
Program P16;
uses crt;
var c, i, n, z: integer;
begin
clrscr;
write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: n=');
readln ;
c:=1;
z:=1;
for i:=1 to n do c:=c*i;
for i:=2 to (n+1) do z:=z*i;
writeln ('Ответ: ', c/(1/z));
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.