Jam Detik

uses wincrt;
var jam,detik:real;
begin
write('Masukkan waktu(dalam jam) = ');readln(jam);
detik:=3600*jam;
write((jam):5:0,'jam=',(detik):5:0,'detik');
end.