program AmoebaDivision;
var
X, time, count: Integer;
begin
Write${}^{\prime }Enterthenumberofamoebas{:}^{\prime }$;
Readln$X$;

time := 0;
count := 1;

while count < X do
begin
time := time + 3;
count := count * 2;
end;

Writeln${}^{\prime }Afte{r}^{\prime },time{,}^{\prime }hourstherewillb{e}^{\prime },X{,}^{\prime }amoebas{.}^{\prime }$;
end.