Contoh Program mengubah waktu detik menjadi Hari,Jam dan menit dengan menggunakan bahasa Pascal

uses crt;
var
h,j,m,d:integer;
dtk:longint;

begin
write('Masukan Detik = ');
readln(dtk);
writeln;

writeln(dtk,' Detik adalah :');

h:=dtk div 86400;
dtk:= dtk - h *86400;
j:= dtk div 3600;
dtk:=dtk -  j* 3600;
m:= dtk div 60;
dtk:=dtk - m * 60;

writeln;
writeln(h,' Hari,',j,' Jam,',m,' Menit,',dtk,' Detik');
end.