Дан целочисленный массив с количеством элементов n. Напечатать те его

элементы, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).

Помогите написать на паскале, очень прошу

Есть способ поизящнее, но можно и так:

program test;

uses crt;

var

arr:array[1 ... 100] of integer;

i:integer;

begin

clrscr;

for i:=1 to 100 do

begin

arr[i]:=random (100) ;

write (i,': ') ;

writeln (arr[i]) ;

end;

writeln;

i:=2;

while (i<100) do

begin

write (i,': ') ;

writeln (arr[i],' ') ;

i:=i*2;

end;

readln;

end