Um programa Portugol que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundos - Lista de Exercícios Resolvidos de Portugol

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

// Converter segundos em horas, minutos e segundos em Portugol
programa {
  funcao inicio() {
    // variáveis que vão guardar a duração em horas, minutos e segundos;
    inteiro horas, minutos, segundos
    inteiro duracao_segundos // guardará a duração em segundos
  
    // 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 = inteiro(duracao_segundos / 3600)
    // vamos obter os minutos
    minutos = (inteiro(duracao_segundos / 60)) % 60
    // vamos obter os segundos restantes
    segundos = duracao_segundos % 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))
  }

  // função usada para formatar as horas, minutos e
  // segundos
  funcao formatar_numero(inteiro n) {
    se (n < 10) {
      retorne "0" + n
    }
    senao {
      retorne n
    }
  }
}