Programme 6 : somme de nombres entiers

VAR
 nombre1,somme,i : nombre entier 

DEBUT
 afficher "Entrer un nombre de départ :"
 saisir nombre1
Somme <- 0

pour i = 1 jusqu'à nombre1
somme = somme + i
i incrémenté
Fin pour

afficher somme
FIN