Программа:

Pascal:

program ameba;

var

 K, i: integer;

begin

 K := 1;

 repeat

 K:=K*2;

 i:=i+3;

 writeln('Количество амеб составит ', K, ' штук через ', i, ' часов.');

 until i>=24;

end.

Объяснение:

Видим, что в коде используются переменные K, i. Регистрируем их в самом начале, объявив им целочисленный тип данных. Также заметим, что каждый раз K умножается на 2, поэтому в начале требуется присвоить переменной единицу, чтобы не было бессмысленного умножения на 0.

В коде также ошибки: в util стоял знак >, хотя должен быть ≥ (по условию максимум - 24 часа, а не 27); заменил write на writeln, чтобы каждый вывод был с новой строки (иначе было очень непонятно и некрасиво); поправил вывод внутри метода writeln(), чтобы это смотрелось получше.

Результат:

Количество амеб составит 2 штук через 3 часов.

Количество амеб составит 4 штук через 6 часов.

Количество амеб составит 8 штук через 9 часов.

Количество амеб составит 16 штук через 12 часов.

Количество амеб составит 32 штук через 15 часов.

Количество амеб составит 64 штук через 18 часов.

Количество амеб составит 128 штук через 21 часов.

Количество амеб составит 256 штук через 24 часов.