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

program gt;var i,a:integer;beginread(A);{A-начальное аол-во амеб}for i:=1 to 5 dobegina:=a*2;end;writeln(A);end.