a entier

debut

ecrire "Entrer un nombre: "
lire a 

a = a * a

afficher a

fin