Konversi Detik ke Jam dan Menit ( Pascal )

Sekarang saya ingin membagikan cara membuat program konversi Detik ke jam dan menit mengunakan Pascal, mungkin banyak dari kalian yang sudah mengetahuinya. oke langsung saja saya memberika scriptnya :
copykan script dibawah ini ke TPW anda 

program Konversi_detik_ke_Jam_dan_menit;
uses wincrt;
var

jj,mm,dd,detik,sisa : longint;

begin
writeln ( '===========================================') ;
writeln ( '* Program Konversi Detik ke Jam dan menit *') ;
writeln ( '===========================================') ;
writeln ('                                 oleh Billy Abimael');

write ('Masukan Total Detik  = ' );
readln (detik);

jj   := detik div 3600 ;
sisa := detik mod 3600 ;
mm   := sisa  div 60   ;
dd   := sisa  mod 60   ;
writeln ;                
writeln (jj , ' Jam   ', mm , ' Menit  ' , dd, ' detik   ' ) ;

writeln;
writeln ( '=======         Copyright AbimaelZone      ============') ;
end.