Объяснение:
var h,m,sec,S: integer;
begin
readln(S);
h:= S div 3600;
m:= (S - h*3600) div 60;
sec:= S - m*60 - h*3600;
writeln(h,':',m,':',sec);
end.
Объяснение:
var h,m,sec,S: integer;
begin
readln(S);
h:= S div 3600;
m:= (S - h*3600) div 60;
sec:= S - m*60 - h*3600;
writeln(h,':',m,':',sec);
end.