Уровень 5. 8. С клавиатуры вводится х метров. Перевести метры в сажани, если 1 сажань=2.1336 метра.

```pascal program MetersToSazhen; var meters, sazhens: real; begin Write('Введите количество метров: '); Readln(meters); sazhens := meters / 2.1336; Writeln('Количество саженей: ', sazhens:0:2); Readln; end. ``` **Объяснение:** 1. **program MetersToSazhen;** - Объявление программы. 2. **var** - Объявление переменных, meters - количество метров, sazhens - количество саженей. Тип **real**, так как результат может быть дробным. 3. **Write** - Вывод приглашения к вводу количества метров. 4. **Readln** - Чтение введенного значения. 5. **sazhens := meters / 2.1336;** - Вычисление количества саженей. 6. **Writeln** - Вывод результата. **0:2** - форматирование для вывода вещественного числа с двумя знаками после запятой. 7. **Readln** - задержка экрана. **Ответ:** ```pascal program MetersToSazhen; var meters, sazhens: real; begin Write('Введите количество метров: '); Readln(meters); sazhens := meters / 2.1336; Writeln('Количество саженей: ', sazhens:0:2); Readln; end. ```