Написать программу ПАСКАЛЬ вычисления расстояния между населенными пунктами. 1)…

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