fork download
program SecondsToHoursMinutes;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  k, h, m: Integer;

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

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

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

  ReadLn;
end.
Success #stdin #stdout 0s 5296KB
stdin
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
Введите количество секунд: Прошло 0 часов и 0 минут.