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

program amoeba; 

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