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.