Известно,что 1 миля=7 верст,1 верста=500 сажений,1 сажень=3 аршина,1 аршина=28 дюймов,1 дюйм=25,4мм.пользуясь этой информацией,состаьте линейный алгоритм перевода растояния х миль в километры

Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;

var x, km: real;

begin

write('Введите число для перевода из миль в километры: ');r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, ' -> ', km);
end.