konversi waktu dalam pascal

 Assalamuallaikum.wr.wb.

hi, sobat .
kali ni saya akan berbagi ilmu tentang script konversi waktu dalam pascal,
dan yang saya tulis ini adalah konversi dari jam,menit,detik ke detik.
berikut script nya:

program waktu;
uses crt;
var jam,menit,detik,hasil : longint;
begin
clrscr;
writeln('masukan jumplah jam:');




readln(jam);
writeln('masukan jumplah menit:');
readln(menit);
writeln('masukan jumplah detik:');
readln(detik);
hasil:=(jam*3600)+(menit*60)+(detik);
writeln;
writeln('hasil=',hasil);
readln;
end.

ya, shobat sekian dari saya ,semoga bisa menambah wawasan kalian.
wassalamuallaikum.wr.wb.