Определить, сколько будет амеб

[Мвнюня]

Определить, сколько будет амеб

Помогите, пожалуйста, решить задачку с помощью рекурсии на делфи. Амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб через n часов, если первоначально была одна амеба.

 

[Мвнюня]

воть примерный код..но как сделать через рекурсию???? помогите пожалуйста!!
. procedure TForm2.Button1Click(Sender: TObject);
var amebs:integer;
i:integer;
begin amebs:=1;
for i:=1 to 24 do begin if i mod 3 = 0 then begin showmessage('Время:' +IntToStr(i)); amebs:=amebs*2;
showmessage('Амебы:' +IntToStr(amebs));
end;
end;
end;

 

[interacia]

Функция возвращающая количество амеб.

function amebs(has:integer):integer;
 begin
if has<3 then amebs:=1
else amebs:=amebs(has-3)*2;
 end;

Подаете в неё количество часов
Для примера

Write('ameb:=',amebs(10));