По количеству секунд вывести время в формате hh:mm:ss

program task;
var seconds:integer;
    h,m,s:string;
begin
writeln('Enter the seconds: ');
read(seconds);
h:=inttostr(seconds div 3600);
if strtoint(h)<10 then insert('0',h,1);
seconds:=seconds-(3600*strtoint(h));
m:=inttostr(seconds div 60);
if strtoint(m)<10 then insert('0',m,1);
seconds:=seconds-(60*strtoint(m));
s:=inttostr(seconds);
if strtoint(s)<10 then insert('0',s,1);
writeln('Results: ',h,':',m,':',s);
end.

var s, t: Integer;
begin
  Read(s);
  t:=s div 3600 mod 24; if t<10 then Write('0'); Write(t,':');
  t:=s div   60 mod 60; if t<10 then Write('0'); Write(t,':');
  t:=s          mod 60; if t<10 then Write('0'); WriteLn(t);
end.

begin
  writeln(System.TimeSpan.FromSeconds(ReadlnInteger('Число секунд =')).ToString('hh\:mm\:ss'));
end.

program task;
var seconds,num:integer;
    h,m,s:string;
begin
read(seconds);
num:=seconds;
h:=inttostr(seconds div 3600);
if strtoint(h)<10 then insert('0',h,1);
seconds:=seconds-(3600*strtoint(h));
m:=inttostr(seconds div 60);
if strtoint(m)<10 then insert('0',m,1);
seconds:=seconds-(60*strtoint(m));
s:=inttostr(seconds);
if strtoint(s)<10 then insert('0',s,1);
write(num,' ',h,':',m,':',s);
end.

program task;
var seconds,num:integer;
    d,h,m,s:string;
begin
write('Enter seconds: ');
read(seconds);
num:=seconds;
d:=inttostr(seconds div 86400);
seconds:=seconds-(86400*strtoint(d));
h:=inttostr(seconds div 3600);
if strtoint(h)<10 then insert('0',h,1);
seconds:=seconds-(3600*strtoint(h));
m:=inttostr(seconds div 60);
if strtoint(m)<10 then insert('0',m,1);
seconds:=seconds-(60*strtoint(m));
s:=inttostr(seconds);
if strtoint(s)<10 then insert('0',s,1);
write(num,' ',h,':',m,':',s);
end.

var h, m, s: Integer;
begin
  Read(s);
  h:=s div 3600 mod 24;
  m:=s div 60 mod 60;
  s:=s mod 60;
  WriteLn(
    h div 10,h mod 10,':',
    m div 10,m mod 10,':',
    s div 10,s mod 10);
end.

begin
  var s:=readinteger;
  writeln(format('{0:00}:{1:00}:{2:00}',s div 3600 mod 24,s div 60 mod 60,s mod 60));
end.

begin
  var Seconds := ReadlnInteger();
  var H := Seconds div 3600 mod 24;
  var M := Seconds mod 3600 div 60;
  var S := Seconds mod 60; 
  WritelnFormat('{0}:{1}:{2}', H, M, S);
end.

begin
  var Seconds := ReadlnInteger();
  var H := Seconds div 3600 mod 24;
  var M := Seconds mod 3600 div 60;
  var S := Seconds mod 60; 
  WritelnFormat('{0:00}:{1:00}:{2:00}', H, M, S);
end.