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

Informe a duração do evento em segundos: 3712
Duração do evento: 01:01:52

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)

  // vamos obter a quantidade de horas do evento
  horas <- Int(duracao_segundos / 3600)
  // vamos obter os minutos
  minutos <- (Int(duracao_segundos / 60)) mod 60
  // vamos obter os segundos restantes
  segundos <- duracao_segundos mod 60

  // vamos exibir a duração do evento em horas, minutos e segundos
  escreva("Duração do evento: ", formatar_numero(horas), ":")
  escreva(formatar_numero(minutos), ":", formatar_numero(segundos))

fimalgoritmo