dias , horas y minutos

ROGRAM Horas,minutos y segundos;

VAR
   tiempo1, tiempo2: INTEGER; //Los tiempos a ser le°dos desde la entrada.
   min1, min2, hs1, hs2, d, MM, HH: INTEGER;
   (*Las variables min1 y min2 son para guardar los minutos de tiempo1 y
   tiempo2 respectivamente. Las variables hs1 y hs2 son para guardar las
   horas  de tiempo1 y tiempo2 respectivamente. La variable d es justamente d.
   Las varialbes MM y HH son para guardar las horas y los minutos del tiempo resutlante de la suma entre tiempo1 y tiempo2*)

BEGIN
    Write('Ingrese los tiempos a sumar: '); //Mensaje para el usuario.
    ReadLn(tiempo1,tiempo2); //Leemos ambos tiempos a la vez.

    min1:= tiempo1 MOD 100; //Desgloso tiempo1 y obtengo sus minutos.
    hs1:= tiempo1 DIV 100; //Desgloso tiempo1 y obtengo sus horas.

    min2:= tiempo2 MOD 100;
    hs2:= tiempo2 DIV 100;

    (*Ahora calcularemos MM, HH y d seg£n las f¢rmulas desarrolladas
    en el an†lisis que les d° de este ejercicio*)
    MM:= (min1 + min2) MOD 60;
    HH:= (hs1 + hs2) MOD 24 + (min1 + min2) DIV 60;
    d:= (hs1 + hs2) DIV 24;

    (*Mostramos los resultados en pantalla seg£n el formato pedido*)
    WriteLn; //Dejo una l°nea en blanco.
    Write(d,' ',HH,MM);

    ReadLn; //Un READLN para detener el programa y poder ver lo mostrado.
END.