program raf105;

const

 n = 99;

var

 a: array[1..n] of integer;

 i,i2: integer;

begin

 write('Исходный массив: ');

 for i:= 1 to n do

 begin

   a[i]:= random(10,99);

   write(a[i],' ');

 end;

 writeln;

 writeln('Вывод: ');

 for i:=2 to n do

 begin

   i2:= i;

   while (i2 mod 2 = 0) and (i2 <> 0) do

     i2:= i2 div 2;

   if i2 = 1

     then writeln(a[i]:2,' (индекс ',i:2,')');

 end;

end.

PascalABC