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

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

program detik_kejam;
uses wincrt;
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.

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

program mencari_detik_kehari;
uses wincrt;
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.