Составьте программу для вычисления количества километров К, которое содержится в Х милях (1 миля = 1,60935 км). Количество миль вводится с клавиатуры

var

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

begin

cls;

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

writeln ('Количество миль равно ');

readln (m);

k : = m * 1.60935;

cls;

writeln ('Количество километров в ', m, ' милях равно ', k);

end.