Pseu-hms

Algoritmo sin_titulo
	Definir lsgun, min, minf, hr, seg, minff Como Entero
	Escribir "Digite los segundos: "
	Leer lsegun
	hr = TRUNC((lsegun / 3600))
	seg = TRUNC((lsegun mod 60))
	min = TRUNC((lsegun / 60))
	Si (min >= 60) Entonces
		minf = TRUNC((min / 60))
		hr = minf
		minff = TRUNC((min mod 60))
		Escribir "Horas: ", hr
		Escribir "Minutos: ", minff
		Escribir "Segundos: ", seg
	SiNo
		Escribir "Horas: ", hr
		Escribir "Minutos: ", min
		Escribir "Segundos: ", seg
	FinSi
FinAlgoritmo