Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько будет амеб через 3,6,9,12, .... 24 часа (pascal)

program fofgogjoj; var     amebi:integer;     i:integer; begin     amebi:=1;     for i:=1 to 24 do       begin       if i mod 3 = 0 then           begin           Write('Время ',i,' ');           amebi:=amebi*2;           Write('Амебы ',amebi);           writeln;       end;       end;     end.