амеба делиться на две клетки каждые 2 часа напишите цикл который будет определять кол-во клеток каждые 24 часа.

var

  count,ameb,hour:integer;

begin

ameb:=1;

writeln('Введите колличество часов: ');

read(hour);

hour:=hour div 2;

for count:=1 to hour do

ameb:=ameb*2;

writeln('За ', hour * 2, ' часа(-ов) получилось: ',ameb, ' амеб.');

end.