program DistanceCalc;
vartime, speed, distance: real;
beginwriteln('Enter the time (in hours): ');readln(time);
writeln('Enter the speed (in km/h): ');readln(speed);
distance := time * speed;
writeln('The distance traveled is: ', distance:0:2, ' km');
end.
program DistanceCalc;
var
time, speed, distance: real;
begin
writeln('Enter the time (in hours): ');
readln(time);
writeln('Enter the speed (in km/h): ');
readln(speed);
distance := time * speed;
writeln('The distance traveled is: ', distance:0:2, ' km');
end.