O algoritmo abaixo mostra o emprego de uma função.

algoritmo "HEMOMINAS"
var
    W, X, Y, BH : inteiro
funcao MG2025(AB:inteiro):inteiro
inicio
    se AB < 2 entao
        retorne 1
    senao
        retorne AB * MG2025(AB-1)
    fimse
fimfuncao
inicio
    BH <- 60
    para W de 0 ate 1 faca
        se W = 0 entao
            X <- BH MOD 15
            X <- MG2025(X)
        senao
            Y <- BH DIV 20
            Y <- MG2025(Y)
        fimse
    fimpara
    escreval("X = ",X:4," Y = ",Y:4)
fimalgoritmo

Após a execução, esse algoritmo irá gerar, respectivamente, os seguintes valores para X e Y: