program jarak_tempuh_dalam_detik;
{menentukan jarak yang dapat ditempuh dalam 1 detik}
uses wincrt;
var
jt : integer {jarak tempuh dalam km};
jj,mm,dd : integer {jam,menit,detik};
tw : integer {total waktu dalam detik};
tjt : real {total jarak tempuh dalam m/s};
begin
writeln ('masukan jam yang diperoleh ');
readln (jj);
writeln ('masukan menit yang diperoleh ');
readln (mm);
writeln ('masukan detik yang diperoleh ');
readln (dd);
writeln ('masukan jarak yang di tempuh dalam km ');
readln (jt);
tw := (jj*3600)+(mm*60)+(dd*1);
tjt := jt/tw;
writeln ('maka jarak yang didapat dalam detik adalah : ' ,tjt:2:8,' m/s');
end.
