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

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

begin
gotoxy(3,4);
write('Masukan Detik = ');
readln(dtk);
j:=dtk div 3600;
m:=dtk mod 3600 div 60;
d:=dtk mod 3600 mod 60;
writeln;


writeln(dtk,' Detik Ada: ',j,' Jam. ',m,' Menit. ',d,' Detik.');
end.