Program mengkonversi detik

uses crt;
var
  jam, menit, detik, sisa, sisa2 : integer;

begin
  clrscr;
  writeln ('Program Konversi Waktu');
  writeln ('Masukkan Data');
  write ('Detik =  ');readln (detik);

  jam      := detik div 3600;
  sisa      := detik mod 3600;
  menit   := sisa div 60;
  sisa2    := sisa mod 60;
  detik    := sisa2;

  writeln ('Ini hasilnya =  ',jam,  '  Jam');
  writeln ('                      ',menit,  '  Menit');
  writeln ('                      ',detik,  '  Detik');
  readln;
end.