Составьте программу, которая вычисляет расстояние между двумя городами в километрах К, приняв, что 5 миль равны 8 км. Город А находится в Х милях от Москвы. Значения А и Х вводятся с клавиатуры.

var

m: longint; / / m - расстояние в милях

s: real; / / s - расстояние в километрах

begin

writeln ('Введите расстояние в милях от города A до Москвы');

write ('Расстояние равно ');

readln (m);

s : = (5 / 8) * m;

writeln ('Расстояние от города A до Москвы равно ', s,' км.');

end.