uses crt;
var d:text; h,p,s:longint;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,h,p,s);
   close(d);
   assign(d,'output.pas');rewrite(d);
      inc(s);
      if s=60 then begin inc(p); s:=0; end;
      if p=60 then begin inc(h); p:=0; end;
      if h=24 then h:=0;
   writeln(d,h,' ',p,' ',s);
   close(d);
end.

//////////////////////////////////////////////

Test

program ct;

uses crt;

var h,p,s:integer;

begin clrscr;

   write('Nhap gio, phut, giay hien tai: '); readln(h,p,s);

     s:=s+1;

     if s=60 then

       begin

          p:=p+1;

          s:=0;

       end;

     if p=60 then 

       begin

          h:=h+1;

          p:=0;

       end;

     if h=24 then h:=0;

   write(h,'h /',p,'p /',s,'s');

readln;

end.

Học Tốt!