(L2)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 "Duração de um evento expresso em segundos"

  var
  horas, minutos, segundos: real
  inicio
  escreva("Digite as horas:")
  leia (horas)
  escreva("digite os minutos:")
  leia (minutos)
  escreva("Digite os segundos:")
  leia (segundos)
  horas <- (segundos div 3600)
  minutos <- ((segundos mod 3600) div 60)
  segundos <- (segundos)+(horas*3600)+(minutos*60))
  escreva("Duração de um evento expresso em segundos=",segundos)
  fimalgoritmo