PROGRAM EJER22B;
USES CRT;
VAR horas, minutos, segundos : INTEGER;
VAR cantidad : INTEGER;
BEGIN
CLRSCR;
WRITE ('Escriba los segundos para transformarlo a horas,');
WRITELN (' minutos y segundos');
READLN (cantidad); {Es el numero de segundos que se introducen}
WRITELN ('');
horas := cantidad DIV 3600;
minutos := (cantidad MOD 3600) DIV 60;
segundos := (cantidad MOD 3600) - (minutos * 60);
{Los segundos son: las horas - los minutos pasados a segundos}
WRITELN ('EN ' , cantidad, ' SEGUNDOS HAY: ');
WRITE (horas, ' horas ', minutos, ' minutos ', segundos, ' segundos');
END.