Algorithme Progression_arithmetique
{
        variable R,A,L,S : reel
                 N : entier
               
        Afficher("Cet algorithme calcule le Nème terme d'une progression arithmétique et la somme des N premiers termes.\n")
        Afficher("Veuillez saisir la valeur du premier terme : ")
        Saisir(A)
        Afficher("Veuillez saisir la raison : ")
        Saisir(R)
        Afficher("Veuillez saisir le N désiré : ")
        Saisir(N)
       
        L <-- A + (N-1)*R
        S <-- N*(2*A + (N-1)*R)/2
                       
        Afficher("Le ",N,"ème terme de cette suite vaut ",L, " et la somme des ",N," premiers termes vaut ",S, ".\n")
}