PROGRAM EJER40;
USES CRT;
{Las variables son: horas, minutos y segundos}
{Son las horas, minutos y segundos introducidos por el usuario}
VAR h, m, s : INTEGER;
VAR h2, m2, s2 : INTEGER;
{Son las horas, minutos y seguntos a los que se les sumara}
BEGIN
CLRSCR;
WRITE ('Escriba en formato horas, minutos y segundos');
WRITELN ('');
WRITE ('Horas ');
READLN (h);
WRITE ('Minutos ');
READLN (m);
WRITE ('Segundos ');
READLN (s);
WRITELN ('');
WRITELN ('Se le sumara un segundo a la hora actual.');
WRITELN ('');
s := s + 1;
IF s = 60 THEN
s2 := 0
ELSE
s2 := s;
m := ( (m * 60) + s) DIV 60;
IF m = 60 THEN
m2 := 0
ELSE
m2 := m;
h2 := ( (h * 60) + m) DIV 60;
IF h2 = 24 THEN
h2 := 0;
WRITELN (h2, ':', m2, ':', s2);
END.