Написать программу в Паскаль

В условии опечатка. 100 метров - это не 0,000539957 морских миль. Верный ответ на картинке.

var length: integer;

begin

write('Введите длину в метрах: ');

readln(length);

writeln(length,' метра (ов) = ',(length/0.9144):5:3,' ярда (ов)');

writeln(length,' метра (ов) = ',(length/1853):11:9,' морские мили');

end.