Составьте программу для преобразования расстояния X в милях в расстояние K в километрах,приняв,что 5 миль равны 8 км. Исходное расстояние в милях задается с клавиатуры.

program mtokm;beginvar a:double; writeln("Введите расстояние в милях: "); readln(a); writeln("Расстояние в милях: ", a); a := a / 5 * 8; write("Расстояние в км: ", a);end.