konversi waktu1

Program konversi_waktu1;
Uses wincrt;
var
   Jam , Menit , Detik, Hasil_Detik: integer;
Begin
   writeln;
   writeln (' Program Menghitung Jumlah Detik');
   writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
   write ('  Masukkan Jam   = ') ; readln (jam);
   write ('  Masukkan Menit = '); readln (menit);
   write ('  Masukkan Detik = ') ; readln (detik);
   Hasil_Detik :=(jam*3600) + (menit*60) + (detik*1);
   writeln ('  => Hasilnya     = ',Hasil_detik);
   writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'); readln;
 end.