variable:A[10]=0;
VARIABLE:b[3]=0;
A[1]:=110;
A[2]:=23;
A[3]:=33;
A[4]:=42;
A[5]:=533;
A[6]:=60;
A[7]:=72;
A[8]:=90;
A[9]:=8;
A[10]:=15;
for n=1 to 10 do
BEGIN
Bb:=LOD2(A,0,A[n]);
if bb=1 then b[1]:=a[n];
if bb=2 then b[2]:=a[n];
if bb=3 then b[3]:=a[n];
end
b1:b[1];
b2:b[2];
b3:b[3];