x:=Entrer("Entrez votre nombre") ; Afficher("Le résultat est : " +(x*x+1)) ;