Exercicio -9. Faça um algorítmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-os expresso em horas,minutos e segundo.

algoritmo " Calcular o tempo de duração do evento")


var

  h,m ,s ,ts ,sh,sm :inteiro
 

inicio
  escreval ("calcular o tempo de duração do evento")

  escreva ("digite o tempo em seguntos")

  leia (ts)

  escreva ("digite o tempo em minutos")

  leia (m)

  escreva ("digite o tempo em horas ")

  leia (h)

  h <- ts div 3600

  sh <- ts -(h * 3600)

  m <- sh div 60

  s <- sh -(m * 60)

  escreva (" O tempo de duração eh")


fimalgoritmo