3. Каждая бактерия в банке делится на две через каждые 3 минуты

[Sos1]

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

[Пепел Феникса]

1)какой язык?
2)где наработки или цена?

[Z1000000]

program stamm;
var
 N,i : Integer;
 B : Real;
begin
readln ( N );
B := 1;
for i := 1 to N div 3 do
 begin
 B := B * 2 ;
 end;
writeln ( B );
end.