В программе расчета скорости при свободном падении коевертировать м/с в км/ч

Program convert; var sec, m, hour, km, option: real; begin readln (m, sec) ; km : = m / 1000; hour : = sec / 3600; option : = km / hour; writeln ('result hour: ', hour) ; writeln ('result km: ', km) ; writeln (km,'/', hour,' = ', option) ; end.

//вроде то что ты просил