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

var

m, v, s, a, d, mm: real;

begin

writeln ('задай количество миль') ;

v:=m*7;

writeln (m,'миль=', v,'верст') ;

s:=v*500;

writeln (m,'миль=', s,'саженей') ;

a:=s*3;

writeln (m,'миль=', a,'аршинов') ;

d:=a*28;

writeln (m,'миль=', d,'дюймов') ;

mm:=d*25.4;

writeln (m,'миль=', mm,'миллиметров') ;

end.