{Bài 12: Viết chương cho phép nhập vào một số, đổi số đó ra giờ, phút, giây.}
program giophutgiay;
uses crt;
var a,tam,gio,phut,giay: integer;
begin
clrscr;
write('Nhap so nguyen: '); readln(a);
gio:= a div 3600;
tam:= a mod 3600 ;
phut:= tam div 60;
giay:= tam mod 60;
writeln(a,' = ',gio,':',phut,':', giay );
readln;
end.