procediment mcd_euclides(a,b); comença defineix D:enter; // variable auxiliar que representa el dividend defineix d:enter; // variable auxiliar que representa el divisor defineix r:enter; // variable auxiliar que representa el residu si a < b { { D:=a; d:=b; } altrament { D:=b; d:=a; } } fes { r:=residu(D div d); si r < 0 llavors { D:=d; d:=r; } } mentre r > 0 escriu "mcd(a,b)=",d; acaba.
Exemple:
    Calculeum el màxim comú divisor dels nombres naturals 15 i 12 fent ús de l'algorisme de les diferències:
------------------------
pas número 1:
    $D \leftarrow 15$ i $d \leftarrow 12$    
i obtenim
    $r=3$ ( el valor del residu de la divisió )
i com que r > 0, continuem
------------------------
pas número 2:
    $D \leftarrow 12$ i $d \leftarrow 3$     ( assignem al nou dividend l'antic divisor i al nou divisor l'antic residu )
i obtenim
    $r=0$ ( el valor del residu de la divisió )
i, per tant, concloem que mcd(15,12)=3     (ja que aquest és el valor de $d$ en el pas que $r=0$ ), i acabem.
$\square$
Observació:     Aquí s'ha implementat l'algorisme a mà perquè els nombres de l'exemple són petits. Si els nombres fossin més grans convindria fer ús d'algun llenguatge de programació per poder implementar de manera automàtica l'algorisme en un ordinador o en una calculadora programable. Suggereixo MAXIMA.