Помоги,пожалуйстааа))
Разработать, ввести в ЭВМ и отладить программу для
расчёта действительного расстояния между городами, если известно расстояние
между ними на карте и масштаб карты

var a: real;    b: longint;begin     write('Введите расстояние (в см): ');     readln(a);     write('Масштаб 1:');     readln(b);     writeln(a * b, ' см = ', a * b / 100, ' м = ', a * b / 100000, ' км');end.