Alg1-Caderno - 6. Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Lê segundos e transforma em horas, minutos e segundos "
// Função :
// Autor :
// Data : 27/08/2010
// Seção de Declarações
var
   t,h,m,s: inteiro
inicio
// Seção de Comandos
   escreval("Entre com o tempo em segundos")
   leia(t)
   h<-t div 3600
   m<- (t mod 3600)div 60
   s<-(t mod 3600)mod 60
   escreva("Isto equivale a: ",h, " hora(s) ", m, " minuto(s) ",s, " segundo(s). ")
fimalgoritmo