alyona , ответ добавлен 04.05.2017 в 08:16

Var
  k: integer;
  m: real;

begin
  writeln('Введите расстояние в километрах');
  read(k);
  m := k * 0.62;
  writeln(k, ' км = ', m:0:2, ' миль');
  readln;
end.

 0