Программирование на языке Паскаль! Заполните массив степенями числа 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