{* Задача 42 *}

Unit ZADACH42;
Interface
Implementation
Begin
 writeln('Одноклеточная амеба делится каждые 3 часа на 2 клетки, определить сколько клеток будет через 3, 6, 9, 12....24 часа?');
End.

Program Amebs;

Uses zadach42.pas; {* Эту строку можно удалить *}
{$APPTYPE CONSOLE}
Uses SysUtils; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  iTime : integer;
  iDel  : integer;
Begin
  For iTime := 1 To 24 Do {* Переменная iTime увеличивается с 1 до 24 *}
  Begin
    If (iTime Mod 3 = 0) Then
    Begin
      iDel := iDel * 2 + iDel;
      Writeln ('Time: ', iTime, ' - Cage: ', iDel);
    End;
    
  End;
  Readln; {* Приостановка программы. Ожидание Enter *}
End.