воть примерный код..но как сделать через рекурсию???? помогите пожалуйста!!
. 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;