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

var
m, k: real; // где m количество миль, вводится с клавиатуры; k  количество км.

begin

cls;
writeln (Введите количество миль.);

writeln (Количество миль одинаково );
readln (m);
k := m * 1.60935;
cls;
writeln (Количество километров в , m, милях одинаково , k);
end.