3 algo boucle type

// pour
var s,i;
s <- 0;
pour i de 0 jusqu'à 8 faire
   s <- s+i*15;
fin pour
ecrire(s);

// tant que
var s,i;
s <- 0;
tant que i<=8 faire
   s <- s+i*15;
   i <- i+1;
fin tant que
ecrire(s);

// repeter
var s,i;
s <- 0;
repeter
   s <- s+i*15;
   i <- i+1;
jusqu'à i<=8
ecrire(s);