Программирование на языке паскаль! заполните массив степенями числа 2,так чтобы последний элемент массива был равен 1,а каждый предыдущий был в 2 раза больше следующего. пример 36 16 8 4 2 1

Var a:array[1..20] of integer;
n,i:integer;
begin
readln(n);
a[n]:=1;
for i:=n-1 downto 1 do a[i]:=a[i+1]*2;
for i:=1 to n do write(a[i],' ');
end.

Пример:
15
16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1