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;