Вывести треугольники из цифр - Pascal ABC

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

Нужно составить программу в ABC.Pascal'е вывода данного рисунка:

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

вот код в паскаль на первый треугольник и последнюю строку рисунка

                    Листинг программы
                
 
                        
                          
                    
Program Risunok;
 const
  P='      ';
  T='';
 var
  i,k:integer;
  pr,kr:string;
 begin
  pr:='' ;
  kr:='  ';
  writeln(P,'1',T,'         1');
   for i:=2 to 5 do
  begin
  writeln(P,i,pr,i);
  pr:=pr+' ';
   end;
  
   writeln(P,'666666',T,'66666');
  readln;
 
  end.

Решение задачи: «Вывести треугольники из цифр»

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

var n,i,j,k:integer;
begin
repeat
write('n>2 n=');
readln(n);
until n>2;
j:=0;
k:=2*n-3;
for i:=1 to n-1 do
 begin
  if i=1 then write(i,' ':k,i)
  else write(i,i:j,' ':k,i,i:j);
  writeln;
  j:=j+1;
  k:=k-2;
 end;
for i:=1 to 2*n-1 do write(n);
end.

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

Создается переменная n типа integer, которая будет использоваться для чтения и проверки значения переменной n.
Создается переменная i типа integer, которая будет использоваться для внутреннего цикла.
Создается переменная j типа integer, которая будет использоваться для хранения индекса элемента в треугольнике.
Создается переменная k типа integer, которая будет использоваться для хранения индекса элемента в треугольнике.
В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение n>2 n= для проверки ввода значения n.
- Чтение значения n из стандартного ввода.
- Установка значений переменных j и k на основе значения n.
Запускается внутренний цикл for, который выполняется n-1 раз (где n - значение переменной n).
Внутри внутреннего цикла проверяется условие if:
- Если i равно 1, то выводится значение i и k.
- В противном случае выводятся значения i и j, а затем k.
После завершения внутреннего цикла выводится n.
Конец программы.