fork download
program SecondsToHoursMinutes;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  k, h, m: Integer;

begin
  // Вводим количество секунд
  ReadLn(k);

  // Вычисляем количество часов и минут
  h := k div 3600; // 3600 секунд в часе
  m := (k mod 3600) div 60; // Остаток от деления на 3600 даст секунды, а потом делим на 60 для минут

  // Выводим результат
  WriteLn('Прошло ', h, ' часов и ', m, ' минут.');

  ReadLn;
end.
Success #stdin #stdout 0.01s 5276KB
stdin
87342
stdout
Прошло 6 часов и 3 минут.