program milkm;
var
Mil:real; { расстояние в милях}
Kilom:real; { расстояние в километрах}
begin
writeln('Пересчет расстояния: Мили -> Километры.');
write('Задайте расстояние в милях: ');
readln(Mil);
Kilom:= Mil * 1.6;
writeln(Mil:5:2,' миль это', Kilom:5:2,' км.');
end.