Дано натуральное число Т — длительность времени в секундах. Вывести данное значение длительности в часах (НН)

Var t:integer;
Begin
    write('Введите длительность прошедшего времени в секундах: ');
    readln(t);
    writeln('Часов: ',t div 3600,' Минут: ',t div 60 mod 60,' Секунд: ',t mod 60);
    readln;
End.