Profº Piva - Algoritmos - Exercício 10) Faça um algoritmo que leia o tempo de duração de um evento de uma fábrica expressa em segundos e mostre-o em horas, minutos e segundos.

algoritmo "CALCULO DO TEMPO"

var
  s,m,h,rs,rm,sobra:inteiro
inicio
  escreval("Cálculo de tempo do evento")
  escreva("Digite o tempo do eventos em segundos ")
  leia(s)
  m  <- s div 3600
  h  <- m div 60
  rs <- s - (m*3600)
  rm <- m - (h*60)
  escreval("O evento durou, ",h," hora(s), ",rm," minuto(s), ",rs," segundo(s).")
  escreva("*** F I M ***")

  fimalgoritmo