Определить продолжительность события в часах, минутах и секундах, если событие задано в секундах

var
   n:longint;
hour,min,sec:longint;
begin
   read(n);
   sec:=n mod 60;
   n:=n div 60;
   min:=n mod 60;
   n:=n div 60;
   hour:=n mod 24;
   writeln(hour,' ',min,' ',sec);
end

var
  n: longint;
  hour, min, sec: longint;
 
begin
  readln(n);
  sec := n mod 60;
  n := n div 60;
  min := n mod 60;
  n := n div 60;
  hour := n mod 24;
  writeln(hour, ' ', min, ' ', sec);
end.

{Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах.
Входные данные:
Во входном потоке задано единственное натуральное число T (T < 10000000)
 
Выходные данные:
Вывести три натуральных числа через пробел: часов, минут, секунд
 
Пример входного файла (input.txt):
3666
Пример выходного файла (output.txt):
1 1 6
}
var
  n: longint;
  hour, min, sec: longint;
  f,g:textfile;
begin
  assignfile(f,'input.txt');
  assignfile(g,'output.txt');
  reset(f);
  rewrite(g);
  readln(f,n);
  sec := n mod 60;
  n := n div 60;
  min := n mod 60;
  n := n div 60;
  hour := n mod 24;
  writeln(g,hour, ' ', min, ' ', sec);
  closefile(f);
  closefile(g);
end.