const
CTC : array[Boolean] of string = ('impair','pair');
{ X est un entier de n bits signé ou non signé }
{ solution 1 : Le modulo 2, si il retourne 0, alors le chiffre est pair, sinon impair }
ShowMessage(IntToStr(X) + ' est ' + CTC[ (X mod 2) = 0 ]);
{ solution 2 : La fonction "odd", retourne true si impair, sinon false }
ShowMessage(IntToStr(X) + ' est ' + CTC[ not odd(X) ]);
{ solution 3 : par masquage du premier bit, egal 0 alors pair, sinon impair,
de loin la methode la plus performante. }
ShowMessage(IntToStr(X) + ' est ' + CTC[ (X and $1) = $0 ]);