D07. Сумма на степенях двоек

Задана последовательность n целых чисел a1, a2,..., an. Выведите сумму всех ее элементов, стоящих на позициях, которые являются степенями двойки: 1, 2, 4, 8, 16 и т.д.
----------------------------------------------------
var
a,b:array[1..1000000]of longint;
min,n,i,count:longint;
 begin

readln(n);
count:=0;
  for i:= 1 to n do
   read(a[i]);
  for i:= 1 to n do
   if (i=1)or (i=2)or (i=4)or (i=8)or (i=16)or(i=32)or (i=64)or (i=128)or (i=256)or
   (i=512)or (i=1024)or (i=2048)or (i=4096)or (i=8192) then
    b[i]:=a[i];
   i:=1;
   while i<= n do begin
    count+=b[i];
    i+=1;
   end;
   writeln(count);
  end.