uses crt;

var a,b,c,d,e:integer;

begin

write('nhap gio:');readln(a);

write('nhap phut:');readln(b);

write('nhap giay:');readln(c);

write('nhap so giay them vao');readln(d);

e:=c+b*60+a*3600;

e:=e+d;

a:=e div 3600;

b:=(e mod 3600) div 60;

c:=e mod 60;

writeln('sau khi cong, ta co: ',a,' gio, ',b,' phut, ',c,' giay');

readln;

end.

uses crt;
var h, m, s, ss: longint;
begin
clrscr;
    read(h, m, s, ss);
    
    inc(s, ss);
    
    if s >= 60 then
        begin
            m:=(m + s) div 60;
            s:=s mod 60;
        end;
    
    if m >= 60 then
        begin
            h:=(h + m) div 60;
            m:=m mod 60;
        end;
    
    writeln(h, ':', m, ':', s);
readln; readln;
end.