Como calcular MDC em VisuAlg

algoritmo "Como calcular o MDC em VisuAlg"

var
  n1, n2, resultado: inteiro

// função que recebe dois inteiros e retorna
// o Máximo Divisor Comum dos dois
funcao MDC(a, b: inteiro): inteiro
var
  resto: inteiro

inicio
  enquanto (b <> 0) faca
    resto <- a Mod b
    a <- b
    b <- resto
  fimenquanto

  retorne a
fimfuncao

inicio
  // 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 é ", resultado)

fimalgoritmo