uses crt;
var g,p,g1,g2,t : longint;
var i,j,k : word;
begin clrscr;
write('Nhap gio :'); readln(g);
write('Nhap phut :'); readln(p);
write('Nhap giay :'); readln(g1);
t:=g*3600+p*60+g1;
write('Nhap giay moi :'); readln(g2);
t:=t+g2;
for i:=1 to 24 do
for j:=1 to 60 do
for k:=1 to 60 do
if (i*3600+j*60+k=t) then
write(i,'gio',j,'phut',k,'giay');
readln
end.