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

Program pr;
uses crt;

Var vremya, X, kol_vo:integer;

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

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

readln();
end.