Contoh Program Menghitung menit,jam,detik menggunakan divmod

uses wincrt;
     var detik:integer;
         opr1,opr2,opr3:integer;
 begin
      write('jumlah detik : ');readln(detik);
      opr1:=detik div 3600;
      opr2:=detik div 60;
      opr3:=detik mod 60;
      writeln('jumlah jam   : ',opr1);
      writeln('jumlah menit : ',opr2);
      writeln('jumlah detik : ',opr3);
end.

Tampilan program

Pada saat kita memasukan angka 100
maka muncullah hasil jam,detik,dan menit