Alg1 - 6. Faça um alg. 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 "Calcula a duração de um evento"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações

var
h,m,s : inteiro

inicio
Escreva ("Digite a duração do evento do expressa em segundos: ")
Leia (s)
h<- (s div 3600)
m<- ((s mod 3600) div 60)
s<- ((s mod 3600) mod 60)
Escreva ("A duração do evento foi de", H ," horas", M ," minitos e", s ," segundos")

fimalgoritmo