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

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, метров ); // выводим ответ в столбец в формате 5 знаков для всего числа и два знака после точки
end;
end.