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

var t, a, i: integer;beginwrite('Введите количество минут: ');read(t);a:=1;for i:=1 to t dobegina:=a*2;writeln('Бактерий через ', i , ' минут: ', a);end;end.