procedure saisie (var n :entier);
repeter
ecrire('donner un entier N')
lire(n)
jusqu'a(n dans [1..100]){[1..100] : condition c'est example}
fin saisie