Algorithme Calcul_Progression
{
        variable A, R, L, S : réel
                 N : entier 
        
        Afficher("La somme des N premiers termes d'une suite et le Nème terme.\n")
        
        Afficher("Saisir le premier terme de la suite : ")
        Saisir(A)
        Afficher("Saisir la raison de la suite :")
        Saisir(R)
        Afficher("Saisir le nombre de termes :")
        Saisir(N)
        
        L <-- A + (N-1)*R
        S <-- N*(2*A+(N-1)*R)/2
        
        Afficher("La somme des ",N," premiers termes de la suite est ", S, ".\n")
        Afficher("Le ",N,"ème terme de la suite est ", L, ".\n")
}