Каждая бактерия делится на две в течени

Таблица значений переменных

t        1  2  3   4   5    6     7     8     9      10
n   1  2  4  8  16  32  64  128  256  512  1024

Паскаль:
var t,n:integer;
begin
n:=1;
for t:=1 to 10 do n:=n*2;
writeln('N=',n)
end.