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

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

На каждом следующем дне рождения Винни – Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по 100 грамм пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни – Пуха.

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

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

var a,s,d,i,sum,c,vin:integer;
begin
writeln('skoko vesit vinni pyx(v grammax)');
readln(vin);
I:=2;
s:=100;
d:=100;
sum:=0;
while sum<=vin do begin  inc(i);
           c:=s+d;
           sum:=(s+d)+sum;
           s:=d;
           d:=c;
 
           end;
 
writeln(i,' den rogden');
end.

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

Создается переменная a типа integer.
Выводится строка 'skoko vesit vinni pyx(v grammax)', что переводится как Сколько весит Винни-Пух.
Считывается значение переменной vin с помощью функции readln.
Инициализируется переменная I со значением 2.
Инициализируется переменная s со значением 100.
Инициализируется переменная d со значением 100.
Инициализируется переменная sum со значением 0.
Запускается цикл while, условием которого является то, что сумма съеденной пищи (переменная sum) меньше или равна собственному весу Винни-Пуха (переменная vin).
Внутри цикла переменная i увеличивается на единицу.
Переменная c инициализируется как сумма переменных s и d, и значение этой переменной добавляется к значению переменной sum.
Значение переменной sum увеличивается на сумму переменных s и d.
Переменная s инициализируется как переменная d.
Переменная d инициализируется как переменная c.
Цикл while повторяется, пока значение переменной sum не станет больше или равно значению переменной vin.
По окончании цикла выводится значение переменной i, которое представляет собой количество дней рождения, когда вес съеденной пищи превысил собственный вес Винни-Пуха.
Выводится строка 'den rogden', что переводится как день рождения.