Пользователь вводит расстояние выраженое в милях нужно перевести это расстояние в км (1 миля=1,6км)
Программа на Паскале:
Program xxx;
Var a, b:real;
Begin
writeln('Введите количество миль');
readln(a);
b:= a*1.6;
writeln('Кол-во киллометров - ',b)
End.