Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения - Turbo Pascal

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

Помогите с решением: На каждом следующем дне рождения Вини Пух съедает столько же пищи, что и на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения?(нигде не нашел понятного решения)

Решение задачи: «Определить, сколько килограммов пищи съест Вини Пух на пятнадцатом дне рождения»

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

uses crt;
const n = 15;
var a:array[1..n] of real;
    i: integer;
begin
clrscr;
a[1] := 0.1;
a[2] := 0.1;
writeln(' 1= 0.1 kg');
writeln(' 2= 0.1 kg');
for i := 3 to n do
 begin
  a[i]:=a[i-1]+a[i-2];
  writeln(i:2,'=',a[i]:4:1, ' kg');
 end;
readln;
end.

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

В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
Затем определяется константа n, которая представляет собой количество дней в задаче.
Далее объявляются переменные a и i. Переменная a представляет собой массив из n элементов типа real, а переменная i - целое число.
Выводится начальное значение a[1] и a[2].
Затем идет цикл for, который начинается с i = 3 и продолжается до i = n. Внутри цикла каждый элемент массива a[i] вычисляется как сумма предыдущих двух элементов.
После каждого вычисления значение a[i] выводится на экран вместе с его индексом.
В конце программы выводится символ новой строки readln, чтобы перейти на следующую строку вывода.
Конец программы обозначается точкой end.