СРОЧНО!! ПАСКАЛЬ!! Вводится какое-то кол-во секунд, из этих секунд программа должна вывести дни(сутки), часы, минуты, секунды... Прошу помочь

Нужно, чтобы выводил целые числа

var sec:longint; d,h,m,s:integer;beginwriteln('sec = ');readln(sec);d:=sec div (60*60*24);h:=sec mod (60*60*24) div (60*60);m:=sec mod (60*60) div 60;s:=sec mod 60;writeln('d = ',d,' h = ',h,' m = ',m,' s = ',s);end.Пример:sec = 183925d = 2 h = 3 m = 5 s = 25