Question

Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд. 

Answer 1

Var h,m,s,a: integer;
begin
readln(a);
h:= a div  3600;
m:= (a - h*3600) div 60;
s:= a - m*60 - h*3600;
writeln(h); writeln(m);write(s);
end.

Answer 2

Uses crt;
var a,h,m,s:integer;
begin
readln(a);
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
s:=a;
write(h,':',m,':',s);
end.