Заполните массив степенями двойки тк чтобы последнее число было всегда 1 , а предыдущее в 2 раза следующего паскаль

Var  a: array[1..10] of integer;  i,j:integer;begin  j:=1;  for i:=10 downto 1 do  begin    a[i]:=j;    j:=j+j;  endend.