Addition

Multiplikation

m = 10 (slider from 2 to 31, step 1)
a = 18 (slider from 0 to 31, step 1)
b = 6 (slider from 0 to 31, step 1)
Text1: "a  \equiv " + (Mod[a, m]) + "( mod " + m + " )"
Text2: "b \equiv " + (Mod[b, m]) + " ( mod " + m + " )"
c = true
e = true
Text3: Mod[a, m] + " + " + (Mod[b, m]) + " = " + (Mod[a, m] + Mod[b, m]) + "\quad \equiv \quad" + (Mod[Mod[a, m] + Mod[b, m], m]) + "(mod " + m + ")"
Text7: Mod[a, m] + "\cdot" + (Mod[b, m]) + "=" + (Mod[a, m] * Mod[b, m]) + "\quad \equiv \quad" + (Mod[Mod[a, m] * Mod[b, m], m]) + "(mod " + m + ")"
Text4: "a + b = " + (a + b) + "\quad \equiv \quad" + (Mod[a + b, m]) + "(mod" + m + ")"
Text8: "a \cdot b = " + (a * b) + "\quad \equiv \quad " + (Mod[a * b, m]) + "(mod " + m + ")"