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