Числовая последовательность задана рекуррентной формулой

[sandraelric]

Помогите, пожалуйста...)
Для заданного с консоли значения n определить сумму числового ряда:
в10.jpg
Результаты вычислений вывести в виде таблицы с заголовком.

Дан такой пример:

Для заданного с консоли значения n определить сумму числового ряда:
пр.jpg
Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции f=e.

Program Variant_0;
Uses WinCRT;

Var s, f, t: Real;
    i, n: Word;

Begin

  WriteLn('Лабораторная работа');
  WriteLn('Вариант');
  WriteLn('***');
  WriteLn('***');
  WriteLn;

  {ввод исходных данных}
  WriteLn('Ввод исходных данных:');
  Write('n=');
  ReadLn(n);
  WriteLn;

  WriteLn('----------------');
  WriteLn('  i         s');
  WriteLn('----------------');

  t:=1.0;
  s:=1.0;
  f:=exp(1.0);

  For i:=1 To n Do
      Begin

        t:=t/i;  				{очередное слагаемое}
        s:=s+t;				{очередная сумма}
        WriteLn(i:3, '     ', s:0:6);

      End;
  WriteLn('----------------');

  WriteLn;
  WriteLn('      f=',f:0:6);

End.

Проблема в том, что не понимаю того, что в моем случае нужно вводить сюда
t:=t/i;
s:=s+t;
Путем замысловатых действий с рекуррентными формулами и т.д. и т.п. у меня получается всего лишь n
значения, в идеале, все должны сойтись, ан нет
Ошибка
/да, я слаб в математике/

[puporev]

что в моем случае нужно вводить сюда

Да ничего не нужно. Вам просто нужно найти сумму первых N натуральных чисел. И никакой рекуррентной зависимости нет, просто

s:=0;
for i:=1 to n do
s:=s+i;

И проверку

s1:=n*(n+1) div 2;