uses wincrt;
var h,m,s,as:integer;
f1,f2:text;
begin
assign(f1,'d:\giophutgiay.inp');
reset(f1);
assign(f2,'d:\giophutgiay.out');
rewrite(f2);
read(f1,as);
h:=as div 3600;
as:=as mod 3600;
m:=as div 60;
s:=as mod 60;
write(f2,'gio-phut-giay la: ',h,'h',m,'p',s,'g');
close(f1);
close(f2);
readln
end.
-Phan Bảo Duy-