Составить алгоритм одноклеточная амеба каждые 3 часа делится на 2 части. сколько амеб будет через 3,6, часа

Var a, i: integer;
begin
a:=1;
for i:=1 to 8 do
begin
a:=a*2;
writeln(a, ' амеб через ', i*3, ' часов');
end;
end.