begin
  var a := 1;
  var t := 0;
  var x := ReadInteger('x =');
  
  while a < x do
  begin
    a *= 2;
    t += 3
  end;
  Write(x,' амеб будет через ',T,' часов')
end.