[angvelem]

Код:

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

Это?