Помогите пожалуйстаа!Одноклеточная амёба каждые 3 часа делится на 2 клеточки.Найти сколько

program amoeba; 

var i,count:integer; 
begin 
i:=3; //количество часов 
count:=1; //количество амеб 
while i lt; = 24 do 
begin 
count:=count*2; //каждые 3 часа количество амеб удваивается 
writeln(i,' hours: ',count); //выводим кол-во часов и амеб 
i:=i+3; 
end; 
readln; 
end.