Вводится какое-то кол-во секунд, из этих секунд программа должна вывести дни(сутки), часы, минуты

Var  sec, min, hour, day: integer;begin  write ('Введите секунды: ');  readln (sec);    min := sec div 60;  sec := sec mod 60;    hour := min div 60;  min := min mod 60;    day := hour div 24;  hour := hour mod 24;    writeln (day, ' суток ', hour, ' часов ', min, ' минут ', sec, ' секунд '); end.