Одноклеточная амеба каждые три часа делится на две клетки. Определить, через сколько часов станет более X амеб, если первоначально она была одна. (С использованием цикла, на языке Pascal)

Предыдущий
вопрос Следующий
вопрос

program AmebaDivision;
var
originalAmeba, hours, X: Integer;
begin
originalAmeba := 1;
Write('Введите количество амеб, чтобы определить через сколько часов станет больше данного числа: ');
Readln(X);
hours := 0;
while originalAmeba < X do
begin
originalAmeba := originalAmeba * 2;
hours := hours + 3;
end;
writeln('Через ', hours, ' часов станет более ', X, ' амеб');
end.

Пример работы программы:

Введите количество амеб, чтобы определить через сколько часов станет больше данного числа: 64
Через 21 часов станет более 64 амеб