Como criar Horário de aula visualg

[mrnono]

Prezados estou iniciando um curso de programação e gostaria de saber com criar um algoritmo de horário de aula do meu curso.

Alguém pode me informa como inicio?

Var
entrada: inteiro
h,m,s: real

inicio

escreval(Entre com os segundos: )
leia(entrada)

h: = entrada div 3600 			// segundo referenciado por horas
m: = (entrada mod 3600) /60 	// resto da horas divida por 60 segundos
s: = (entrada mod 3600) mod 60	// resto da horas em resto por segundos

escreval(h, " : ", m, " : ", s)

Portanto pessoal preciso de saber como agora inicio um horário de aula

Agradeço muito aquele interessados.