Задача "Капосний папуга"

Реалізація циклу з передумовою на прикладі розв'язання задачі "Капосний папуга" у середовищі Lazarus.
Задача
Капосний папуга навчився висмикувати у дідуся Василя волосся, яке ще залишилося у того на голові. Почавши з однієї волосини, він кожен день збільшував порцію удвічі. Через скільки днів дідусеві не знадобиться гребінець, якщо на початку у нього на голові було аж N волосин?
Презентація у форматі pdf.