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

Yop,
Sans vouloir t'offusquer, je vois pas trop l'intérêt
Ca sert à quoi concrètement?

J'ai l'impression que c'est une espère de cours, où une façon de nous montrer a quoi devrais ressembler un post sur l'algorithmique. Sais pas. Ce qui est sûr, c'est que concrètement, çà n'apporte rien de plus au schmilblok que ma réponse...
En gros, je dirais : Modérateurs, modérez !