Одноклеточная амеба каждые три часа делится на две клетки. определить, через сколько часов станет более x амеб, если первоначально она была одна. (с использованием цикла, на языке pascal)

Var x,a,h:integer;
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.