Город а находится в х милях от парижа.напишите программу,которая вычислит расстояние межд этими в км(5 миль=8 км)

Var
x,y:real;
begin
    y:=8/5;{км в одной миле}
    writeln('введите расстояние в милях');
    readln(x);
     writeln('расстояние в км: ', x*y);
end.