Programa que dados una cantidad X de segundos, Te escribe cuantas horas, minutos hay... etc
*****************************************
program tiempo;
uses crt;
var
segundos,minutos,horas:integer;
begin
clrscr;
writeln('jaker_lolo! Cuantos segundos');
readln(segundos);
horas:=segundos div 3600;
minutos:=(segundos mod 3600) div 60;
segundos:=(segundos mod 3600) mod 60;
writeln('horas ',horas);
writeln('minutos ',minutos);
writeln('segundos ',segundos);
end.