Каждая бактерия делится на две в течение одной минуты. в начальный момент времени имеется одна бактерия. составьте программу, которая рассчитывает количество бактерий на заданное вами целое значение момента времени.

Var bak:integer;

begin
readln(bak); //Вбиваем требуемое кол-во минут

/*каждую минуту кол-во бактерий увеличивается вдвое, т.к. вначале мы имеем всего 1 бактерию, то просто умножаем кол-во минут на 2 */

bak:=bak*2;
writeln(bak);
readln;
end.