Решите ( составь программу на языке паскаль для решения бологического моделирования: оклеточноя амеба каждые 3 часа делится на 2 клетки. какой станет численность колонии омебчерез 24 часа от начала отсчета?

Program ideone;
var ameba, day, timeToDivide, temp : real;

begin
ameba:= 0;
day:= 24;
timeToDivide:= 3;
temp:= day / timeToDivide;
ameba:= temp * 2;
writeln(ameba:1:0);
end.