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