Составьте программу, которая вычисляет расстояние между двумя в километрах к, приняв, что 5 миль равны 8 км. город а находится в х милях от москвы. значения а и х вводятся с клавиатуры.

Var  a: string; 
x, k: Real;
begin
write('Nazvanie goroda: ');
Readln(a);
write('Rasstoyanie ot g. ', a, ' do Moskvy v milyah: ' );
Readln(x);
k := x*8/5;
Writeln('Gorod ', a, ' nahoditsya v ', k:4:2, ' km. ot Moskvy.');
readln;
end.