Algorithme somme
    var i, s: entier
  debut
    s <- 0
    tantque (i<100) faire
        s <- s + i
    fintantque
    ecrire("1+2+3+...+99+100 = ", s)
  fin