Нужно ввести на паскале вот такую : одноклеточная амёба каждые 3 часа делится на две клетки. сколько амёб будет через 12 часов. использовать циклы. заранее .

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