Permet de saisir un entier dont la valeur est strictement supérieure à 0.
Procédure Saisir (@ X : entier) DÉBUT Répéter Écrire ("Donner en entier strictement positif: ") Lire(X) Jusqu'à X>0 FIN