Se foloseste algoritmul lui Euclid, care arata cam asa:
function CMMDC(a, b)
while b ≠ 0
t := b
b := a mod b
a := t
return a
Sau daca nu o vrei integrata intr-o functie, segmentul de cod ar fi cam asa:
read a, b;
while b ≠ 0
t := b
b := a mod b
a := t
write a