Um programa VisuAlg que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundos - Desafio de Programação Resolvido em VisuAlg

algoritmo "Converter segundos em horas, minutos e segundos em VisuAlg"
var
  // variáveis que vão guardar a duração em horas, minutos e segundos;
  horas, minutos, segundos: inteiro
  duracao_segundos: inteiro // guardará a duração em segundos

// função usada para formatar as horas, minutos e
// segundos
funcao formatar_numero(n: inteiro): caractere
inicio
  se n < 10 entao
    retorne "0" + Numpcarac(n)
  senao
    retorne Numpcarac(n)
  fimse
fimfuncao

inicio
  // vamos solicitar a duração do evento em segundos
  escreva("Informe a duração do evento em segundos: ")

  // vamos ler os segundos informados
  leia(duracao_segundos)