Одноклеточная амеба каждые 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.