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 "Tempo de Duração de um Evento em uma Fábrica"

var
   seg, min, horas:inteiro

inicio
escreval("Tempo de Duração de um Evento em uma Fábrica")
escreval
escreval("Entre com o Tempo em segundos: ")
leia(seg)
horas<-seg div 3600
min<-(seg-(horas*3600)) div 60
seg<-(seg-(horas*3600)-(min*60))
escreva(horas," Horas,",min," Minutos e",seg, " Segundos")

fimalgoritmo