algorithme essai
declaration
      x, n = 0, s = 0;
debut
     tantque n < 1 faire
       saisir n;
     ftq;
     tantque x < n faire
       s := s+x;
       x := x+1;
     ftq;
     afficher s;
fin