Konversi by Indonetizensia

program indonetizensia;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
hari,jam,menit,detik : integer ;
total : integer ;
sisa : integer ;
begin
  writeln('Konversi banyaknya Detik menjadi Hari, Jam, Menit dan Detik');
     writeln('===========================================================');
     write('Masukkan Banyaknya Detik : '); readln(total);
     writeln;
     hari     := total div (24*60*60);
     sisa     := total mod (24*60*60);
     jam      := sisa div (60*60);
     sisa     := sisa mod (60*60);
     menit    := sisa div 60;
     detik    := sisa mod 60;
     writeln('Hasil :');
     writeln('-------');
     writeln(hari,' Hari ',jam,' Jam ',menit,' Menit ',detik,' Detik');
     readln ;
end.