{ Test de validite d'un entier comme numero }
{ de securite sociale par test du sexe      }

fonction testSexeNumeroSecuriteSociale(nb) : booleen
  Donnees  nb : entier           { numero de securite sociale teste            }
  Locales  sexe : entier         { variable de stockage du code sexe           }
  sexe := nb / 1000000000000
  Resultat : ((sexe = 1) ou (sexe = 2))
fin fonction

{ Test de validite d'un entier comme numero }
{ de securite sociale par test du mois      }

fonction testMoisNumeroSecuriteSociale(nb) : booleen
  Donnees  nb : entier           { numero de securite sociale teste            }
  Locales  mois : entier         { variable de stockage du code mois           }
  mois := (nb / 100000000) modulo 100
  Resultat : ((mois >= 1) et (mois <= 12))
fin fonction

{ Test de validite d'un entier comme        }
{ numero de securite sociale par validation }
{ du sexe et du mois                        }

fonction testNumeroSecuriteSociale(nb) : booleen
  Donnees   nb : entier          { numero de securite sociale teste            }
  Resultat : (testSexeNumeroSecuriteSociale(nb) et
              testMoisNumeroSecuriteSociale(nb))
fin fonction