program estPair;                     {Algorithme 1 : estPair}
var a	    : integer ;              {Donnee : a un entier (le programme ne prend pas parametre,}
                                     {c'est pourquoi, le resultat est passe en variable)}
   resultat :  boolean ;             {Resultat : VRAI ou FAUX (le programme ne renvoit rien,}
                                     {c'est pourquoi, le resultat est passe en variable)}
BEGIN                                {Debut du programme}
   writeln('Entrer un entier');      {Pour permettre l'initialisation de a, on va la demander a}
   readln(a);                        {l'utilisateur}
   if a mod 2 = 0                    {Si a modulo 2 = 0}
      then                             {alors}
      begin
	 writeln(a,' est pair');
	 resultat := true ;            {le resultat est vrai}
      end
      else                             {sinon}
      begin
	 writeln(a,' est impair');
	 resultat := false;            {le resultat est faux}
      end;
END.                                 {fin du programme}