Известно,что 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.