Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3,6,9, 12, ...,24 часа. pascal

var k,i:integer;begink:=1;for i:=1 to 24 div 3 do begin k:=k*2; writeln(3*i:3, ': k = ',k); end;end.Результат:  3: k = 2  6: k = 4  9: k = 8 12: k = 16 15: k = 32 18: k = 64 21: k = 128 24: k = 256