Cộng thời gian

 Viết chương trình nhập vào từ bàn phím: giờ, phút, giây. Cộng thêm một số giờ, phút, giây cũng được nhập từ bàn phím. Hãy in ra kết quả giờ, phút, giây sau khi cộng xong.
                                              Giải
Var
   h,vg,m,s,h1,m1,s1: integer;
BEGIN
      Write('Nhap gio, phut, giay ban dau: '); Readln(h,m,s);
      Write('Nhap gio, phut, giay can cong: '); Readln(h1,m1,s1);
      vg:= ((s+s1) div 60);
      s:=((s+s1) mod 60);
      vg:=((m+m1+vg) div 60);
      m:=((m+m1+vg) mod 60);
      h:=h+h1+vg;
      Writeln('Thoi gian tong cong la: ',h,'h ',m,'phut ',s,'giay');
      Readln;
END.