Имеется 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.