В условии опечатка. 100 метров - это не 0,000539957 морских миль. Верный ответ на картинке.
var length: integer;
begin
write('Введите длину в метрах: ');
readln(length);
writeln(length,' метра (ов) = ',(length/0.9144):5:3,' ярда (ов)');
writeln(length,' метра (ов) = ',(length/1853):11:9,' морские мили');
end.
