Каждая бактерия в банке делится на две через каждые 3 минуты. в начальный момент имеется 1 бактерия. сколько их будет через n минут?

var count,N,min:integer;
begin
  write('Vvedite N: ');
  readln(N);
  inc(count);
  repeat
    inc(min);
    if ((min mod 3)=0) then inc(count);
  until(min=N);
  writeln(count);
  readln;
end.

uses crt;
var n,s:integer;
begin
write('Введите время N: ');
readln(N);
n:=n div 3;
s:=n;
writeln('Конечное количество бактерий равно ',power(2,s));
end.