Напишите программу к решению : "с момента начала суток к секунд. сколько часов, минут и секунд показывают куранты? "

Var k,a,b:integer;
begin
read(k);
b:=k div 3600;
if b>0 then k:=k mod 3600;
a:=k div 60;
if a>0 then k:=k mod 60;
writeln(b,':',a,':',k);
end.