Program Konversi_Detik;( Algoritma dan Pemograman )

Program Konversi_Detik;
uses crt;

var
   Jam,TotalDetik,sisa,menit,detik      :longint;
Begin

clrscr;
   write('TotalDetik     : ');Readln(TotalDetik);
   Jam := TotalDetik div 3600;
   sisa := TotalDetik mod 3600;
   menit := sisa div 60;
   detik := sisa mod 60;
   writeln('Hasilnya : ',Jam,':',menit,':',detik);
   readln;
End.