ПОМОГИТЕ ПОЖАЛУЙСТА!!! Идет какая-то секунда суток.Определите сколько полных часов,полных минут и секунд прошло с начала суток

В минуте 60 секунд.  1) Разделить число на 3600.Получим .целое число означает текущий час. Если  из задонного числа вычесть  получившееся целое число умноженное на 3600 получим число секунд в текущих  минутах. 2)это число необходимо разделить на 60. Целое число будет означать текущую минуту. 3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду. Например Задано число 66276. 1)  66276 / 3600 = 18,41   Прошдло 18 часов.     18 * 3600 = 64800     66276 - 64800 = 1476 2) 1476 / 60 = 24,6    Прошло 24 минуты.      24 * 60 = 1440      1476 -1440 = 36 Ответ: 18 часов , 24 минуты, 36 секунд.

var n,h,m,s:int32; begin write('n = '); readln(n); h:=n div 3600; m:=(n-h*3600) div 60; s:=n mod 60; writeln('h = ',h,' m = ',m,' s = ',s); end. Пример: n = 55198 h = 15 m = 19 s = 58