Дан целочисленный массив с количеством элементов 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