Algorithme Jour_lendemain
{
        // Déclaration des variables
        variable j,m,a,jl,ml,al : entier
        
        // Début des instructions
        Afficher("Saisissez la date courante : ")
        Saisir(j,m,a)
        
        Si ((m=1) ou (m=3) ou (m=5) ou (m=7) ou (m=8) ou (m=10) ou (m=12)) alors
        {
                Si (j!=31) alors
                {
                        jl <-- j+1
                        ml <-- m
                        al <-- a
                }
                sinon
                {
                        Si (m!=12) alors
                        {
                                jl <-- 1
                                ml <-- m+1
                                al <-- a
                        }
                        sinon
                        {
                                jl <-- 1
                                ml <-- 1
                                al <-- a+1
                        }
                }
        }
        sinon
        {
                Si (m=2) alors
                {
                        Si ((a mod 4 = 0) et (j=28)) alors
                        {
                                jl <-- 29
                                ml <-- m
                                al <-- a
                        }
                        sinon
                        {
                                Si ((j=28) ou (j=29)) alors
                                {
                                        jl <-- 1
                                        ml <-- m+1
                                        al <-- a
                                }
                                sinon
                                {
                                        jl <-- j+1
                                        ml <-- m
                                        al <-- a
                                }
                        }
                }
                sinon // on est forcément en 4, 6, 9 et 11
                {
                        Si (j=30) alors
                        {
                                jl <-- 1
                                ml <-- m+1
                                al <-- a
                        }
                        sinon
                        {
                                jl <-- j+1
                                ml <-- m
                                al <-- a                        
                        }
                }
        }
        
        Afficher("Le lendemain de ",j,"/",m,"/",a, " est ",jl,"/",ml,"/",al,"\n") 
}