FUNCTION MCD(PRIMO, SECONDO)
BEGIN
WHILE PRIMO != SECONDO
IF PRIMO > SECONDO
PRIMO := PRIMO – SECONDO
ELSE
SECONDO := SECONDO – PRIMO
ENDIF
ENDWHILE
MDC := PRIMO
END

ALGORITMO MAXCOMDIV
VAR
PRIMO_NUM, SECONDO_NUM
BEGIN
PRINT “INSERIRE PRIMO NUMERO”
READ PRIMO_NUM
PRINT “INSERIRE SECONDO NUMERO”
READ SECONDO_NUM
PRINT MCD (PRIMO_NUM, SECONDO_NUM)
END