AA:=L;
尾数1:=FRACPART(AA)*100=23;
尾数2:=FRACPART(AA)*100=34;
尾数3:=FRACPART(AA)*100=45;
尾数4:=FRACPART(AA)*100=56;
尾数5:=FRACPART(AA)*100=67;
尾数6:=FRACPART(AA)*100=78;
尾数7:=FRACPART(AA)*100=89;
整数1:= INTPART(AA)=1;
整数2:= INTPART(AA)=2;
整数3:= INTPART(AA)=3;
整数4:= INTPART(AA)=4;
整数5:= INTPART(AA)=5;
整数6:= INTPART(AA)=6;
整数7:= INTPART(AA)=7;
整数8:= INTPART(AA)=12;
整数9:= INTPART(AA)=23;
整数10:= INTPART(AA)=34;
整数11:= INTPART(AA)=45;
整数12:= INTPART(AA)=56;
整数13:= INTPART(AA)=67;
XG:(整数13 AND 尾数6) OR (整数12 AND 尾数5) OR (整数11 AND 尾数4) OR (整数10 AND 尾数3) OR (整数9 AND 尾数2) OR (整数8 AND 尾数1) OR (整数7 AND 尾数7)
OR (整数6 AND 尾数6) OR (整数5 AND 尾数5) OR (整数4 AND 尾数4)
OR (整数3 AND 尾数3) OR (整数2 AND 尾数2) OR (整数1 AND 尾数1);