Помогите срочно пожалуйста

Question

Помогите срочно пожалуйста

---

Answer 1

Program one;
var  k, m, s: real;  x: integer;
begin  write('Введите мили: ');  read(x);  m := 1.60935;  k := x * m;  write(k, ' километров в ', x, ' милях');end.

Comments

program one;

var
k, m, s: real;
x: integer;

begin
write('Введите мили: ');
read(x);
m := 1.60935;
k := x * m;
write(k, ' километров в ', x, ' милях');
end.