uses crt;
var giay,phut,gio,thang,ngay,nam,t:longint;
begin
clrscr;
giay:=0;
phut:=0;
gio:=0;
ngay:=0;
thang:=0;
Nam:=0;
    repeat
       inc(giay);
       if giay=60 then begin inc(phut); giay:=0; end;
       if phut=60 then begin inc(gio); phut:=1; end;
       if gio=24 then begin inc(ngay); gio:=1; end;
       /////Tinh ngay cua thang
       if (thang mod 2<>0)or(thang=8) then t:=31 else t:=30;
       if thang=2 then if nam mod 4=0 then t:=29 else t:=28;
       //////////////
       if ngay=t then begin ngay:=1; inc(thang); end;
       if thang=12 then begin thang:=1; inc(nam) end;
       writeln('Giay:',giay,' ;Phut:',phut,
       ' ;Gio:',gio,' ;Ngay:',ngay,' ;Thang:',thang,' ;Nam:',Nam); delay(999);
       clrscr;
    until 1=2;
readln
end.

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

Hướng dẫn sử dụng đồng hồ:

Bạn hãy chỉnh ở chỗ mình đặt trước repeat thành giờ hiện tại!

Đồng hồ sẽ chạy đến khi bạn tắt pascal đi!

Hặc bạn chỉ cần ấn Ctrl-C để về lại trang lập trình mà không cần tắt pascal đi!

Chúc bạn học tốt!! :)))