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.

100% đúng :V

#include <iostream>
int a,b,c,d,e;
#define cls system("cls")
using namespace std;
void se2h()
{
    a=(int)e/3600;
    b=(int)(e-a*3600)/60;
    c=(int)(e-a*3600-b*60);
    if(c>=60){
        int dsss=(int)c/60;
        c-=dsss*60;
        b+=(int)c/60;
    }
    if(b==60){
        int dss=(int)b/60;
        b-=dss*60;
        a+=(int)b/60;
    }
    if(a>=24){
        int ds=(int)a/24;
        a-=ds*24;
    }
}
int main()
{
    cout<<"Gio: ";
    cin>>a;
    cout<<"Phut: ";
    cin>>b;
    cout<<"Giay: ";
    cin>>c;
    if(a>23||b>59||c>59){
        cls;
        return main();
    }
    e=3600*a+b*60+c;
    cout<<"Nhap giay them: ";
    cin>>d;
    e+=d;
    se2h();
    cout<<"Gio: "<<a<<"\nPhut: "<<b<<"\nGiay: "<<c;

    //samon247
    return 0;
}