Program Konversi Detik_Jam

Program Konversi Detik_Jam


Program Konversi_Detik_Jam;
Uses WinCrt;
var d,j,m,sisa:integer;
Begin
Write('Masukkan Jumlah Detiknya : ');
readln(d);
j:=d div 3600;
sisa:=d mod 3600;
m:=sisa div 60;
sisa:=sisa mod 60;
Writeln(d,' detik = ',j,' Jam ',m,' Menit ',sisa,' Detik');
End.