Dias , minutos y segundos

PROGRAM Dias,minutos y segundos;

VAR

HH,MM,hh,mm,h'h',m'm',d: integer;

BEGIN
  write('Introduzca un n£mero en forma hhmm ');
  readln(hh,mm);
  write('Introduzca el siguiente ');
  readln(h'h',m'm');

  MM:= (mm + m'm')MOD 60;
  HH:= (hh + h'h')MOD 24 + (mm + m'm')DIV 60;
  d:= HH DIV 24;

  writeln('El resultado es: ',d,'d°a/s',HH,'horas y',MM,'minutos');

END.