Viết chương trình nhập từ bàn phím số nguyên n để số nguyên n ra giờ phút giây

program ct; 
uses crt; 
var n,h,m:integer; 
begin clrscr; 
   write('Nhap so n: '); readln(n); 
     h:=n div 3600; 
     n:=n mod 3600; 
     m:=n div 60; 
     n:=n mod 60; 
   writeln(h,' gio ',m,' phut ',n,' giay'); 
readln; 
end.

Học tốt!

program ct;

uses crt;

var h,n,P:integer;

begin

clrscr;

   write('nhap n:=');readln(n);

        h:=n div 3600;

        n:=n mod 3600;

        P:=n div 60;

        n:=n mod 60;

writeln(h,'gio',P,'phut',n,'giay');

readln

end.