SW:=INTPART(FRacPART(INTPART(L)/100)*10);
GW:=FRACPART(INTPART(L)/10)*10;
SFW:=INTPART(FRACPART(L)*10);
BFW:=FRACPART(FRACPART(L)*10)*10;
A0:=GW=SFW AND GW=BFW;
A1:=GW=SW AND GW=SFW AND GW=BFW;
A2:=(SW=GW-1 AND SW=SFW-2 AND SW=BFW-3) OR (GW=SFW-1 AND GW=BFW-2) OR (SW=GW+1 AND SW=SFW+2 AND SW=BFW+3) OR (GW=SFW+1 AND GW=BFW+2);
A3:=SFW=BFW;
A4:=SW=SFW AND GW=BFW;
A5:=SW=BFW AND GW=SFW;
A6:=((SW/GW=2 AND GW!=0)OR (GW/SW=2 AND SW!=0)) AND ((SFW/BFW=2 AND BFW!=0) OR (BFW/SFW=2 AND SFW!=0));
A7:=SW=GW AND SFW=BFW;
A8:=SW=SFW AND (GW=BFW-1 OR GW=BFW+1);
XG:A0 OR A1 OR A2 OR A3 OR A4 OR A5 OR A6 OR A7 OR A8;