Найти произведение элементов последовательности - PascalABC.NET

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

Пусть a0=a1=1; ai=ai-2+(ai-1/2i-1), i=2,3... найти произведение a0*a1*....a14

Решение задачи: «Найти произведение элементов последовательности»

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

var a0,a1,ai,p:real;
    i:integer;
begin
a0:=1;
a1:=1;
p:=1;
i:=2;
while i<14 do
 begin
  i:=i+1;
  ai:=a0+(a1/(2*i-1));
  p:=p*ai;
  a0:=a1;
  a1:=ai;
 end;
write('произведение: ',p:0:4);
end.

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

Введенные переменные: ai, p, i — целочисленные типы данных, a0, a1 — вещественные типы данных.
Инициализация первых двух элементов последовательности: a0 = 1, a1 = 1.
Инициализация произведения первых двух элементов: p = 1.
Инициализация счетчика для цикла: i = 2.
Цикл выполняется 12 раз (от i = 2 до i = 13).
Внутри цикла происходит следующее: — Увеличение значения счетчика i на единицу. — Вычисление значения элемента последовательности ai на основе предыдущих двух элементов a0 и a1, а также значения i. — Вычисление произведения p на основе значения ai. — Обновление значений a0 и a1 на значения a1 и ai соответственно.
Вывод результата: произведение элементов последовательности p.