1.Viết chương trình nhập từ bàn phím số giây, đổi số giây đó thành giờ, phút, giây VD: 3600 =>1h 0p 0s

Program NhatNgu;
Uses crt;
Var s: qword;
Begin
        Clrscr;
        Write('Nhap giay: '); Readln(s);
        Write(s div 3600,' gio ');
        s:=s mod 3600;
        Write(s div 60,' phut ');
        s:=s mod 60;
        Write(s,' giay');
        Readln
End.

uses crt;

var n, h, p, s : longint;

begin

clrscr;

write('Nhap so giay = '); readln(n);

h := n div 3600;

p := (n - h * 3600) div 60;

s := n - h * 3600 - p * 60;

write(n,' giay = ', h ,' gio, ', p ,' phut, ', s ,' giay');

readln

end.