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

var    amoebas, t: integer;begin    amoebas := 1;     t := 0;        repeat        t := t + 3;        amoebas := amoebas * 2;             Writeln(amoebas, ' амеб через ', t, ' часа');       until t >= 24;end.