Ler um número inteiro na faixa 0-999 e mostrar a soma de seus dígitos - Exercícios Resolvidos de VisuAlg

Informe um valor inteiro (0-999): 523
A soma dos dígitos é: 10

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Mostrar a soma dos dígitos de um número inteiro"

var
  // variáveis usadas na resolução do problema
  valor, terceiro, segundo, primeiro, soma: inteiro

inicio
  // vamos solicitar ao usuário que informe um valor inteiro
  // na faixa 0 a 999 (incluindo)
  escreva("Informe um valor inteiro (0-999): ")

  // vamos ler o valor informado
  leia(valor)

  // vamos verificar se o valor está na faixa permitida
  se (valor < 0) ou (valor > 999) entao
    escreval()
    escreval("Valor fora da faixa permitida")
    escreval()
  senao
    // vamos obter o terceiro dígito
    terceiro <- valor % 10
    // obtém os digitos restantes
    valor <- Int(valor / 10)

    // vamos obter o segundo dígito
    segundo <- valor % 10
    // obtém os digitos restantes
    valor <- Int(valor / 10)

    // vamos obter o primeiro dígito
    primeiro <- valor % 10

    // vamos obter a soma dos dígitos
    soma <- terceiro + segundo + primeiro

    // vamos mostrar o resultado
    escreval()
    escreval("A soma dos dígitos é: ", soma)
    escreval()
  fimse

fimalgoritmo