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

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