Помогите составить алгоритм

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

спасибо конечно.но мне нужен сам алгоритм,а не код программы

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