Составить алгоритм перевода саженей в метры для значений длин от 1 до 20 саженей.

program zz1;

var i : integer; / / задаем переменную целого типа для цикла

n : real; / / задаем переменную не целого типа для ответа

begin

for i : = 1 to 20 do / / организуем цикл, в котором переберем все числа от единицы до двадцати

begin

n : = 2.1336 * i; / / вычисляем значение метров по формуле из расчета 1 сажень = 2.1336 метров

writeln (' для ', i, ' саженей вычисленное значение = ', n:5:2,' метров '); / / выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки

end;

end.