Converter segundos em, horas, minutos e segundos

Esse blog foi criado a muito tempo atrás como forma de divulgar os trabalhos da faculdade aos colegas de classe. Hoje ele se encontra abandonado mas você pode visitar o meu site, onde encontrará bastante conteúdo relacionado à tecnologia e informática

www.gqferreira.com.br

Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expresso em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Segundos em hora,minutos e segundos Ex.6"
var
   segundos,minutos,horas:inteiro
inicio
      escreval("Informe o tempo em segundos:")
      leia(segundos)
      
      horas<- segundos div 3600
      minutos<- (segundos-(horas*3600)) div 60
      segundos<- segundos-(horas*3600)-(minutos*60)
      
      escreva(horas," horas,",minutos," minutos e",segundos," segundos")
fimalgoritmo