Program Konversi_waktu

Program Konversi_waktu;
uses wincrt;
var j,m,d,h:integer;
begin
writeln(' Program Konversi Waktu ');
writeln(' ====================== ');
writeln;
write ('Masukkan Jumlah Jam : ');readln(j);
write ('Masukkan Jumlah Menit : ');readln(m);
write ('Masukkan Jumlah Detik : ');readln(d);
writeln;
h:=(j*3600)+(m*60)+d;
writeln ('Jadi Hasilnya : ',h,' Detik');
end.