Program Konversi ke Detik (Bahasa Pascal)

program Konversi_ke_Jam_Menit_Detik;

{I.S.: Mengubah sejumlah detik ke dalam Jam : Menit : Detik}
{F.S.: Menampilkan hasil Jam : Menit : Detik}
type Jam = record
           hh:longint; {jam}
           mm:longint; {menit}
           ss:longint; {detik}
          end;
var
   J : Jam;
   TotalDetik : longint;
begin
   write('Jam :'); readln(J.hh);
   write('Menit :'); readln(J.mm);
   write('Detik :'); readln(J.ss);
   Totaldetik:= (J.hh*3600)+(J.mm*60)+J.ss;
   writeln('Total Detik =', TotalDetik);
   readln;
   writeln;
end.