Como calcular MDC em Portugol

programa {
  funcao inicio() {
    inteiro n1, n2, resultado

    // vamos pedir que o usuário informe dois números
    escreva("Informe o primeiro número: ")
    leia(n1)
    escreva("Informe o segundo número: ")
    leia(n2)
    
    // calculamos o MDC
    resultado = MDC(n1, n2)

    // mostramos o resultado
    escreva("O Máximo Divisor Comum de " + n1 + " e " +
      n2 + " é " + resultado)
  }

  // função que recebe dois inteiros e retorna
  // o Máximo Divisor Comum dos dois 
  funcao inteiro MDC(inteiro a, inteiro b) {
    inteiro resto
 
    enquanto (b != 0) {
      resto = a % b
      a = b
      b = resto
    }
 
    retorne a
  }
}