c:/gdsf/web/fuentes_pascal/RELOJ2.PAS

PROGRAM EJER40;
USES CRT;
VAR h1, m1, s1 : INTEGER;
VAR h2, m2, s2 : INTEGER;
BEGIN
CLRSCR;
WRITE ('Horas ------> ');
READLN (h1);
WRITE ('Minutos ----> ');
READLN (m1);
WRITE ('Segundos ---> ');
READLN (s1);
s2 := s1 + 1;
IF s2 = 60 THEN
     BEGIN
     s2 := 0;
     m2 := m1 + 1;
     END;
IF m2 = 60 THEN
     BEGIN
     m2 := 0;
     h2 := h1 + 1;
     END;
IF h2 = 24 THEN
     BEGIN
     s2 := 0;
     m2 := 0;
     h2 := 0;
     END;
WRITE (h1);
WRITE (' hh ');
WRITE (m1);
WRITE (' mm ');
WRITE (s1);
WRITE (' ss ');
WRITE (' + 1 segundo son: ');
WRITE (h2);
WRITE (' hh ');
WRITE (m2);
WRITE (' mm ');
WRITE (s2);
WRITE (' ss ');
END.