Algorithme Multiple
{
     variable A, B: entier
     
     Afficher("Saisissez deux nombres et je vous dirai si le premier est multiple du second")
     Saisir(A,B)
     
     Si ((A mod B) = 0) alors
     {
          Afficher(A, " est multiple de ", B, "\n")
     }
     sinon
     {
          Afficher(A, " n'est pas multiple de ", B, "\n")     
     }
}