{ Lecture au clavier d'une valeur entiere    }
{ positive et retour                         }

entier fonction lectureEntierPositif()
  entier valeur
  valeur <- Clavier.sasirEntier()
  tant que valeur < 0 faire
    afficherln("Erreur!!! Veuillez ressaisir)
    valeur <- saisir()
  fait
  retourner valeur
fin fonction