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

Чуть-чуть исправила программу и вышло вот так:var x,a,h:integer;begina:=1;read(x);while a<=x do begina:=a*2;h:=h+3;end;writeln(h);end.Вроде бы всё срабатывает:)

а да забыл а:=1

ну если срабатывает значит хорошо ;)