DTG PASCAL

 
var s,h,p:Longint;
begin
    assign(input,'dtg.inp');reset(input);
    assign(output,'dtg.out');rewrite(output);
    readln(s);
    h:=s div 3600;
    s:=s mod 3600;
    p:=s div 60;
    s:=s mod 60;
    writeln(h,' gio ',p,' phut ',s,' giay');
end.