var  a, b, c, d, m : Entier
    Debut
        Ecrire ("donner A")
    Lire ( a )
        Ecrire ("Donner B")
        Lire (b )
        c = b
        d = 1
        TantQue (c + b) <= a Faire
            c = c + b
            d = d + 1
        Fin TantQue
        m = a - (d * b)
        Ecrire ("le div est : " & d)
        Ecrire e("le MOD est : " & m)

 Fin