Program PAscal Ubah Detik ke Jam, Menit dan Detik

program Ubah_detik;

{I.S. : }

{F.S. : }

var

     jam,menit,detik,sisa,jml_detik : integer;

begin

     writeln('INPUT');

     writeln('------');

     write('Masukan sejumlah detik : ');readln(jml_detik);

     jam   := jml_detik div 3600;

     sisa  := jml_detik mod 3600;

     menit := sisa div 60;

     detik := sisa mod 60;

     writeln;

     writeln('OUTPUT');

     writeln('------');

     writeln(jam,' jam ',menit,' menit ',detik, ' detik ');

     readln;

end.