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