Algorithme pour_boucle
      var somme1, somme2, i: entier
  Debut

    somme1 <- 0
    pour i de 1 à 100 faire
        somme1 <- somme1 + i
    finpour
    ecrireln("1+2+3+...+100 = ", somme1)

    somme2 = 100*(100+1)/2
    ecrireln("100*(100+1)/2 = ", somme2)

  Fin
              

  1+2+3+...+100 = 5050
  100*(100+1)/2 = 5050


  --------------
  [Fin de programme]