Como somar o primeiro e o último dígito de um número inteiro informado pelo usuário em VisuAlg - Desafio de Programação Resolvido em VisuAlg

Informe um número inteiro: 48763
A soma do primeiro e do último dígito é: 7

algoritmo "Somar o primeiro e o último dígito de um número"

var
  numero, soma, quant, primeiro_digito: inteiro
  ultimo_digito: inteiro

inicio
  // vamos pedir para o usuário informar um número inteiro
  escreva("Informe um número inteiro: ")
  leia(numero)

  // vamos obter a quantidade (-1) de dígitos no número informado
  quant <- Int(Log(numero))

  primeiro_digito <- Int(numero / Exp(10, quant))
  ultimo_digito <- numero Mod 10
  	
  // soma o primeiro e o último dígito
  soma <- primeiro_digito + ultimo_digito
	
  // mostra o resultado
  escreva("A soma do primeiro e do último dígito é: ", soma)

fimalgoritmo