PROGRAM EJER HORAS,MINUTOS Y SEGUNDOS

HOLA OTRA VEZ AQUI LES DEJO OTRO PROGRAMITA MUY INTERESANTE.


PROGRAM EJER22;
       USES CRT;

       VAR horas, minutos, segundos:INTEGER;

BEGIN

       horas:= 3700 div 3600;
       minutos:= (3700 mod 3600) div 60;
       segundos:= (3700 mod 3600) - (minutos * 60);


       ClrScr;

       WRITELN ('EN 3700 SEGUNDOS HAY: ');
       WRITE (horas,' hora',' y ',minutos,' minutos ', segundos,
' segundos');
        READLN;

END.