Вычисление An через циклы, Думаю последовательность Опции

[Домовой]

Здравствуйте.
Задача такая - Вычислить...
остальное прикрепляю к картинке...
По поиску в форуме вроде похожего нету
Задачу я понял, но вот загвостка.
Ясно, что введенную an нужно вычислять по формуле,
а для нее требуется 3 предыдущих значения an.
Вот мой код, на котором я запнулся:

Код

program zikl_7;

var a, k, ur, a1, a2, a3: real;
    n: byte;

begin

   write('Введите an: ');
   readln(a);
   a1:=0;
   a2:=a1;
   a3:=1.5;

   for k := 4 to a do
      begin

         ur:=((k+1)/(sqr(k)+1))* {<= недоделано}

      end;





end.

Господа, у меня вопрос
Неужели нужно запоминать предыдущие значения для вычисления остатка?
Или может кто-нибудь сможет подсказать другое решение?
Буду благодарен
Пасиб.

Сообщение отредактировано: Домовой - 17.12.2005 19:15