Организация ввода и вывода - Pascal ABC

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

Вывести на экран фигуру: Есть программа для этого кусочка:

Program figura;
var i, j, n:Integer;
begin
  n:=6;
  for i:=1 to n-1 do 
    begin 
    for j:=2 to i do
      write(' ');
    write(i);
      for j:=1 to n-i-1 do
        write(' ');
      write(i);
      writeln;
    end;
  for i:=1 to n do
  write(i);
end.

Решение задачи: «Организация ввода и вывода»

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

var i, j, n:Integer;
begin
n:=6;
for i:=1 to n-1 do
 begin
  for j:=2 to i do write(' ');
  write(i);
  for j:=1 to n-i-1 do write(' ');
  write(i,i);
  for j:=1 to n-i-1 do write(' ');
  write(i);
  writeln;
 end;
for i:=1 to n do write(i);
for i:=n downto 1 do write(i);
end.

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

В данном коде выполняется следующие действия:

Ввод данных:
- Переменная n инициализируется значением 6. Это значение представляет собой количество строк, которые будут выводиться на экран.
- В цикле от 1 до n-1 происходит организация ввода данных.
Вывод данных:
- Цикл от 1 до n-1 выполняет следующие действия:
  - Внутренний цикл от 2 до i выводит пробелы в количестве i-1. Это делается для того, чтобы выровнять левую границу ячеек таблицы.
  - Выводится значение переменной i.
  - Внутренний цикл от 1 до n-i-1 выводит пробелы в количестве n-i-1, чтобы выровнять правую границу ячеек таблицы.
  - Выводится значение переменной i с дополнительным смещением в i.
  - Внутренний цикл от 1 до n-i-1 выводит пробелы в количестве n-i-1, чтобы выровнять правую границу ячеек таблицы.
  - Выводится значение переменной i.
  - Выводится символ новой строки writeln, который спускается на новую строку.
- В цикле от 1 до n происходит вывод значений переменной i.
- В цикле от n до 1 происходит вывод значений переменной i в обратном порядке.