Algorithme double
  var x, y: entier
  debut
      lire(x)
      lire(y)
      ecrire("باقي قسمة ", x, " على ", y, " = ", x % y)
  fin
              

  7
  5
  باقي قسمة 7 على 5 = 2

  --------------
  [Fin de programme]