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

varm: longint; // m — расстояние в миляхs: real; // s — расстояние в километрахbeginwriteln ( \'Введите расстояние в милях от города A до Москвы\' );write (\'Расстояние равно \'); readln (m);s := (5 / 8) * m;writeln ( \'Расстояние от города A до Москвы равно \', s ,\' км.\' );end.