одноклеточная амеба каждые три часа делится на 2 клеточки составьте метод

Program pr;
uses crt;

Var vremya, X, kol_vo:integer;

Begin
kol_vo:=1;  первоначально будет 1 бактерия
vremya:=0;
Write('Введите необходимое кол-во амеб: ');
readln(X);
While (kol_vo lt; X) do 
   Begin
      kol_vo:=kol_vo*2;
      vremya:=vremya+3;
   end;

Writeln('Время = ',vremya,' часа');

readln();
end.