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

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