Program Konversi Detik ke Jam:Menit:Detik (Bahasa Pascal)

program Mengubah_Sejumlah_Detik;
{I.S.: diberikan harga ke dalam variabel sejumlah detik bertipe integer}
{F.S.: menampilkan hasil konversi detik ke jam:menit:detik}


var
   jumlah_detik, jam, menit, detik, sisa: integer;

begin
   write('Masukkan sejumlah detik = ');
   readln(jumlah_detik);

   jam:= jumlah_detik div 3600;
   sisa:= jumlah_detik mod 3600;
   menit:= sisa div 60;
   detik:= sisa mod 60;
   writeln;
   writeln(Jam,' Jam : ',Menit,' Menit : ',Detik,' Detik');
   readln;
   readln;
end.