Помогите составить программу . ( циклом )
Одноклеточная амеба каждые 3 часа делится на 2 клетки . Определить сколько клеток будет через n суток ?

varh,a,n:integer;beginreadln(n);a:=1;h:=3;while h<=n*24 dobegin   a:=a*2;   h:=h+3;end;writeln(a);end.