Program Konversi Waktu Menggunakan Turbo Pascal

program konversi_waktu;
uses wincrt;
var
jam, menit,sisadetik,detik : integer;
begin
    writeln('PROGRAM KONVERSI WAKTU');
    writeln('======================');
    write('Masukan Detik : '); read(detik);
    jam            := detik div 3600;
    sisadetik      := detik mod 3600;
    menit          := sisadetik div 60;
    sisadetik      := sisadetik mod 60;
    writeln('Hasilnya : ');
    writeln('         ');
    write(detik,' detik = ',jam, ' jam ');
    write(menit,' menit ',sisadetik,' detik ');
end.

Tampilan Program :

Semoga Bermanfaat