Процедура печати заданных числовых строк - Pascal ABC

Формулировка задачи:

Составить процедуру, которая для заданного числа n печатала целые числа в виде (n=5) 5 5 5 5 5 3 3 3 3 3 1 1 1 1 1 3 3 3 3 3 5 5 5 5 5

Решение задачи: «Процедура печати заданных числовых строк»

Листинг программы

procedure g(n: integer);
var i, j: integer;
begin
  for i := -n div 2 to n div 2 do
    begin
      for j := 1 to n do write(abs(i) * 2 + n mod 2:trunc(ln(n) / ln(10)) + 2);
      writeln
    end;
end;

Объяснение кода листинга программы

В процедуре g(n) используется цикл for, который выполняется от -n до n.
Внутри цикла используется вложенный цикл for, который выполняется от 1 до n.
В каждой итерации вложенного цикла вычисляется значение abs(i) * 2 + n mod 2.
Значение n mod 2 преобразуется в десятичное число с помощью функции ln(n) / ln(10).
Вычисленное значение умножается на 2 и добавляется к abs(i).
Полученное значение выводится на экран с помощью функции write.
После окончания каждой итерации вложенного цикла выводится строка writeln.
В конце процедуры выводится строка end.