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

var  x, count, i: real;
begin
  read(x);
  count := 1;
  i := 0;
  while(x > count) do
  begin
    count := power(2, i + 1);
    i += 1;
  end;
  write(i * 3);
end.