Algorithme Calcul_Date_lendemain
{
        variable j, m, a, jl, ml, al : entier
        
        Afficher("Cet algorithme calcule la date lendemain\n")
        Afficher("Entrez le jour : ")
        Saisir(j)
        Afficher("Entrez le mois : ")
        Saisir(m)
        Afficher("Entrez l'année : ")
        Saisir(a)
        
        Si (m = 2) alors
        {
                Si (a mod 4 = 0) alors
                {
                        // On est une annee bisextile
                        Si (j = 29) alors
                        {
                                jl <-- 1
                                ml <-- m + 1
                                al <-- a
                        }
                        sinon
                        {
                                // On est un jour différent de la fin du mois
                                jl <-- j + 1
                                ml <-- m
                                al <-- a
                        }
                }
                sinon
                {
                        Si (j = 28) alors
                        {
                                jl <-- 1
                                ml <-- m + 1
                                al <-- a
                        }
                        sinon
                        {
                                // On est un jour différent de la fin du mois
                                jl <-- j + 1
                                ml <-- m
                                al <-- a
                        }
                }
        }
        sinon
        {
                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 <-- 1
                                Si (m!=12) alors
                                {
                                        ml <-- m + 1
                                        al <-- a
                                }
                                sinon
                                {
                                        ml <-- 1
                                        al <-- a + 1
                                }
                        }
                        sinon
                        {
                                // On est un jour différent de la fin du mois
                                jl <-- j + 1
                                ml <-- m
                                al <-- a
                        }
                }
                sinon
                {
                        // Il nous reste ici les mois 4,6,9 et 11
                        
                        Si (j = 30) alors
                        {
                                jl <-- 1
                                ml <-- m + 1
                                al <-- a
                        }
                        sinon
                        {
                                // On est un jour différent de la fin du mois
                                jl <-- j + 1
                                ml <-- m
                                al <-- a
                        }
                }
                
        }
        
        Afficher("Le jour du lendemain du ", j,"/",m,"/",a," est le ",jl,"/",ml,"/",al,"\n")
        
}