10) Faça um algoritmo que leia o tempode duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Calcular Tempo de Evento"


var
segundos, minutos, horas, totalSegundos, sobraHoras, sobraMinutos: inteiro

inicio
escreval ("***Calcular Tempo de Evento***")
escreval
escreva ("Informe o tempo em segundos -")
leia (totalSegundos)
horas <- totalSegundos div 3600
sobraHoras <-totalSegundos - (horas * 3600)
minutos <- sobraHoras div 60
segundos <- sobraHoras - (minutos * 60)
escreva ("Tempo do Evento: ", horas, "h", minutos, "min", segundos, "seg")

fimalgoritmo