В Unicode 1 символ кодируется одним байтом.
F =20*30*50*1 =30 000 байтов =(30 000:1024) Кбайтов ≈ 30 Кбайтов
(30 : 1024) Мбайтов ≈0,02861 Мбайт
Прошу прощения, что грязно написано, но работать должно правильно)
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>