Решение задачи 25 с 71,пишите комментарий,если есть вопросы

program z25_c71;
     var  k, i,sum: integer ;
     begin
      writeln('введите первоначальное количество амеб');
 read(k); {количество амеб вначале}
     for i:= 1 to 24 do begin {цикл выполняется 24 раз, так как 24 часа }
                      i:=i+ 2; {так как амебы размножаются каждые 3 часа, 1 цикл прибавляет оператор for и 2 мы,пользователи,чтобы цикл выполнялся для 3,6,9, ит.д. }
                      writeln(' час = ',i);  {проверка часов }
                      k:=k*2; {количество амеб увеличивается в 2 }
                      writeln('амеб ',k,'через часов ',i);  {проверка количества амеб }  end;
         end.