Algorithme SuiteArithmétique
{
    variable A, L, R, S: réel
             N : entier
    
    Afficher("Saisir le premier terme de la suite arithmétique ?")
    Saisir(A)
    Afficher("Saisir la raison ?")
    Saisir(R)
    Afficher("Saisir le rang ?")
    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 vaut :", S, "\n")
    Afficher("Le ", N, "ème terme vaut :", L, "\n")
}