Программа

PROGRAM Summing;
VAR Sum:real;        { Сумма }
    n:word;          { Число членов }
    R:word;          { Счетчик }
    Factorial:real;  { Факториал R (числитель) }
    UndSum:real;     { Знаменатель слагаемого }
BEGIN
  WriteLn;             { Пропуск строки }
  Write('Введите n '); { Вывод приглашения }
  ReadLn(n);           { Ввод числа членов суммы }
  Factorial:=1;        { Начальное определение факториала }
  UndSum:=0;           { Начальное определение знаменателя }
  for r:=1 to n do     { Цикл набора суммы }
    Begin
      Factorial:=Factorial*r;        { Переопределение факториала }
      UndSum:=UndSum+1/(R+1);        { Переопределение знаменателя }
    End;
  Sum:=Factorial/UndSum;   { Вычисление суммы }
  WriteLn('=',Sum)        { Вывод суммы }
END.