[PhoeniX]

Код:

var
  Clock : Integer;
  amoeba : Integer;
begin
  Clock := 3; // Hour;
  amoeba := 1;
  repeat
    amoeba := amoeba * 2;
    dec(Clock,3);
  until Clock <= 0;
end;