Помогите пожалуйстаа!Одноклеточная амёба каждые 3 часа делится на 2 клетки.Определить сколько амеб будет через 3,6,9...24 часа.Составить программу наязыке Паскаль.
program amoeba; var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; end.