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:"horas,minutos,segundos
var
hora,minutos,segundos,tempo:real
inicio
escreva("digite hora")
leia(hora)
escreva("digite minutos")
leia(minutos)
escreva("digite segundos")
leia(segundos)
hora<-(tempo div3600)
minutos<-(tempo mod3600)div60
segundos<-tempo-((hora*3600)+(minutos+60))
escreva(hora,minutos,segundos)
fimalgoritmo