menghitung jam

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.