Program Konversi Waktu dengan Pascal

Program KonversiWaktu;

type jam = record
     j,m,d : integer;
end;

var jam1 : jam ;
    detik : integer;

begin
     write('Masukan waktu dalam satuan detik : ');
     read(detik);

     jam1.m := detik div 60;
     jam1.d := detik mod 60;

     jam1.j := jam1.m div 60;
     jam1.m := jam1.m mod 60;

     write('hh:mm:ss = ',jam1.j,':',jam1.m,':',jam1.d);

end.