имеется 1 бактерия. Каждую минуту она делится на 2. Сколько будет бактерий через n минут? Паскаль

var n,r:integer;

begin

readln(n);

r:=1;

for i:=1 to n do

   r:=r*2;

writeln(r);

end.

program qq;

var t, c: real;

begin

writeln('Введите кол-во минут');

readln(t);

c:= t*2;

writeln(c, 'бактерий будет через', n, 'минут');

end.