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

Program pr;uses crt;Var vremya, X, kol_vo:integer;Beginkol_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.