Cette fonction retourne True si le chifre est pair


function EstPair(const VotreChiffre :integer):boolean;
 var i :integer;
  begin
   result := false;

   i := VotreChiffre div 2;

   if i * 2 = VotreChiffre Then result := True;
  end;
  
  
  Ou la fonction Delphi ODD qui retourne false si le chiffre est pair