---

program CalculateDistance;
var
  scale, distance, result: real;
begin
  writeln('Вычисление расстояния между населенными пунктами.');
  writeln('Введите исходные данные:');
  
  write('Масштаб карты (км в 1 см) -> ');
  readln(scale);
  
  write('Расстояние между точками (см) -> ');
  readln(distance);
  
  { Вычисляем реальное расстояние }
  result := scale * distance;
  
  writeln;
  writeln('Расстояние между населенными пунктами: ', result:0:1, ' км.');
end.