Program Project1;

var
a:array[1..16] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 16 do
begin
p:=p*2;
a[ i ]:=p;
writeln(a[ i ])
end;
readln
end.

Да.... если судить по предыдущем решению, "в школу снова не хочу!" )))

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
  Range(1,16).Select(x->Power(2,x)).ToArray.Println
end.

Тестовое решение:
2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536

Замечание: ToArray. можно выбросить и написать
Range(1,16).Select(x->Power(2,x)).Println - это была просто дань требованию условия зачем-то создать массив и вывести его значения.