Azért eltűnődtem rajt' pár másodpercig. Poénnak jó, értelme nem sok. :) Ha i páros, akkor a xor 1 növeli 1-gyel, s nem adunk hozzá semmit. Ha i páratlan, a xor 1 lényegében levon 1-et, de ekkor hozzáadunk 2-t, szóval mindkét esetben i:=i+1; lesz.