Verified answer

Ответ:

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.