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

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