Algorithme Progression_arithmétique
{
        // Déclaration des variables
        variable L,A,S,R:réel
                 N : entier 
                
        // Début des instructions
        Afficher("Saisissez la raison de la progression arithmétique ?\n")
        Saisir(R)
        Afficher("Saisissez le premier terme de la progression arithmétique ?\n")
        Saisir(A)
        Afficher("A quel rang voulez vous connaitre le terme et la somme des termes ?\n")
        Saisir(N)

        L <-- A+(N-1)*R
        S <-- N*(2*A+(N-1)*R)/2

        Afficher("Le terme de rang ",N," vaut ",L," et la somme des ", N, "premiers termes vaut ", S, ".\n")
}