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 “Calcula a duração do tempo em horas, minutos e segundos”
  var
   horas, minutos, segundos, seg : inteiro
 inicio
    escreva(“Digite a duração do evento em segundos:”)
    leia(segundos)
    horas<-(segundos div 3600)
    minutos<-((segundos mod 3600) div 60)
    seg<-((segundos mod 3600) mod 60)
    escreva(“A duração do evento foi de”, horas,” horas”, minutos ,” minutos e”, seg ,” segundos”)
  fimalgoritmo