Рекурентные вычисления - Turbo Pascal

Формулировка задачи:

1. Написать программу, вычисляющую первые n элементов заданной последовательности:

Решение задачи: «Рекурентные вычисления»

Листинг программы

var b,b1:real;
    n,i:integer;
begin
write('n=');
readln(n);
b1:=0.1;
writeln(b1:0:15);
for i:=2 to n do
 begin
  b:=(0.02+b1*b1*b1)/6;
  writeln(b:0:15);
  b1:=b;
 end;
end.

Объяснение кода листинга программы

Объявляются переменные b, b1:real; и n, i:integer;
Выводится сообщение n= и считывается значение переменной n.
Переменная b1 инициализируется значением 0.1.
Выводится значение переменной b1:0:15.
Запускается цикл for, который выполняется от 2 до n.
Внутри цикла переменная b инициализируется значением (0.02+b1b1b1)/6.
Выводится значение переменной b:0:15.
Переменная b1 обновляется значением b.
Цикл завершается.