Перевод расстояния в километрах в расстояние в милях. 5 миль соответствуют 8 км. составить листинг программы в delphi

Var
    a: real;

begin
    readln(a);
    Writeln(a, ' км = ', 8 / 5 * a, ' миль');
end.