{ Type agrege de stockage des informations     }
{ relatives a une date codee sous la forme     }
{ jour, mois, annee                            }

structure date
  entier j <- 1
  entier m <- 1
  entier a <- 1901
fin structure

{ Programme principal                          }

action principale()
  date dt
  entier nbJours
  afficherln("SVP, j, m & a?")
  dt.j <- saisir()
  dt.m <- saisir()
  dt.a <- saisir()
  dans le cas de dt.m
    2 :
      si ( (dt.a modulo 400) == 0 ) ou 
         ( ( (dt.a modulo 4) == 0 ) et
           ( (dt.a modulo 100) <> 0 ) ) alors
        nbJours <- 29
        sinon
        nbJours <- 28
      fsi
    4  :
    6  :
    9  :
    11 :
      nbJours <- 30
    autres cas :
      nbJours <- 31
  fcas
  dt.j <- dt.j+1
  si dt.j > nbJours alors
    dt.j <- 1
    dt.m <- dt.m+1
    si dt.m > 12 alors
      dt.m <- 1
      dt.a <- dt.a+1
    fsi
  fsi
  afficherln(dt.j,"/",dt.m,"/",dt.a)
fin action