как то так
for i=0 to 20
if i<=a then
entityalpha b[i],1
else
entityalpha b[i],0
next
или
for i=0 to a
entityalpha b[i],1
next
for i=a to 20
entityalpha b[i],0
next
или вообще
for i=0 to 20
entityalpha b[i],i<a
next
тока будет ли ето пахать в блице ?