var m,r:real;
Begin
Writeln('Вычисление расстояния между населенными пунктами.') ;
writeln('ведите исходные данные:');
writeln('Масштаб карты (количество километров в одном сантиметре) ---> ');
read(m);
writeln('Расстояние между двумя точками, изображающими населенные пункты (см) ---> ');
read(r);
writeln('Расстояние между населенными пунктами ', m*r,' км.');
End.