Ответ:

картинка

program KD;

var f,km:real;

begin

read (f);

km:=0.0003048*f;

write (km:0:3)

end.

Объяснение:

1 км = 3 280,84 фут

x км = 1 фут

1 фут ≈ 0,0003048 км

f - расстояние заданное футах

km - полученное расстояние в километрах