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

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.
//вроде то что ты просил