Нужно ввести на паскале вот такую задачку:
ОДНОКЛЕТОЧНАЯ АМЁБА КАЖДЫЕ 3 ЧАСА ДЕЛИТСЯ НА ДВЕ КЛЕТКИ. СКОЛЬКО АМЁБ БУДЕТ ЧЕРЕЗ 12 ЧАСОВ.
Использовать циклы.  Заранее спасибо.

var x,i:integer;beginx:=1;i:=3;while(i<12) dobeginif i mod 3=0 then x:=2*x;i:=i+1;end;writeln(x," амёб будет через 12 часов");end.