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

Var a,n,i: integer;
begin
write('n = ');
readln(n);
a:=1;
for i:=1 to n div 3 do a:=2*a;
writeln('a = ',a);
end.

Пример:
n = 7
a = 4