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