program DistanceCalc;
vartime, speed, distance: real;
beginwriteln′Enterthetime(inhours):′'Enter the time (in hours): '′Enterthetime(inhours):′;readlntimetimetime;
writeln′Enterthespeed(inkm/h):′'Enter the speed (in km/h): '′Enterthespeed(inkm/h):′;readlnspeedspeedspeed;
distance := time * speed;
writeln′Thedistancetraveledis:′,distance:0:2,′km′'The distance traveled is: ', distance:0:2, ' km'′Thedistancetraveledis:′,distance:0:2,′km′;
end.
program DistanceCalc;
var
time, speed, distance: real;
begin
writeln′Enterthetime(inhours):′'Enter the time (in hours): '′Enterthetime(inhours):′;
readlntimetimetime;
writeln′Enterthespeed(inkm/h):′'Enter the speed (in km/h): '′Enterthespeed(inkm/h):′;
readlnspeedspeedspeed;
distance := time * speed;
writeln′Thedistancetraveledis:′,distance:0:2,′km′'The distance traveled is: ', distance:0:2, ' km'′Thedistancetraveledis:′,distance:0:2,′km′;
end.