Дан целочисленный массив с количеством элементов N. Вывести те его элементы, индексы которых являются степенями двойки. (2,4,8,16,…) — Pascal(Паскаль)

const
    n=257;
var
    a:array[1..n] of integer;
    i:word;
    index:integer;
begin
    Randomize;
    for i:=1 to n do
        begin
            a[i]:=random(50)+1;
            write(a[i]:3);
            if i=n then writeln;
        end;
    index:=2;
    while index<=n do
        begin
            writeln('a',index,'= ',a[index]:3);
            index:=index*2;
        end;
    readln;
end.