Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%] Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах. Входные данные: Во входном потоке задано единственное натуральное число T (T < 10000000) Выходные данные: Вывести три натуральных числа через пробел: часов, минут, секунд Пример входного файла (input.txt): 3666

Var
  f: Text;
  T: longint;
  h, m, s, err: integer;
  c: string;

begin
  Assign(f, input.txt);
  Reset(f);
  Readln(f, c);
  Val(c, T, err);
  Close(f);
  h := T div 3600;
  T := T mod 3600;
  m := T div 60;
  s := T mod 60;
  writeln(h, , m, , s)
end.

Тестовое решение:

1 1 6