Contoh Source Code Konversi Detik Bahasa Pascal

program konversi_detik;

uses wincrt;

var dd,hh,mm,ss,detik,sisa:longint;

begin

     write ('Masukkan nilai detik : ');

     readln (detik);

     dd:=detik div 86400;

     sisa:=detik mod 86400;

     hh:=sisa div 3600;

     sisa:=sisa mod 3600;

     mm:=sisa div 60;

     ss:=sisa mod 60;

     writeln;

     writeln ('hasil konversi detik');

     writeln;

     write (dd,' hari ',hh,' jam ',mm,' menit ',ss,' detik');

     read (dd,hh,mm,ss);

end.