Каждая бактерия в банке делится на две через каждые 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;beginwrite('Введите время N: ');readln(N);n:=n div 3;s:=n;writeln('Конечное количество бактерий равно ',power(2,s));end.