Распечатайте в виде треугольной таблицы элементы матрицы, стоящие на местах, обозначенных цифрами 3 и 4

var
   a:array[1..20,1..20] of integer;
   n,i,j:integer;   {объявление переменной}
//----------------Процедура ввода------------------------------  
procedure input;    {наименование процедуры}
          var  a:array[1..20,1..20] of integer;    {объявление массива}
          var i,j:integer;                         {объявление переменных}
begin
     readln(n);                             {ввод колличества строк и столбцов}
     for i:=1 to n do                       {запуск цикла по i (строки)}
         for j:=1 to n do readln(a[i,j]);   {заполнение матрицы по строкам/столбцам}
     for i:=1 to n do                       {запуск цикла по i (строки)}
         begin
              for j:=1 to n do       {запуск цикла по j (столбцы)}
              write(a[i,j]:3);      {вывод чисел на экран}
              writeln;              {выравнивание матрицы}
         end;
end;
//------Процедура вывода----------------------------------------  
procedure output;    {наименование процедуры}
          var a:array[0..20,0..20] of integer;       {объявление массива}
          var i,j:integer;                           {объявление переменных}
begin
     for i:=1 to n do                          {запуск цикла по n}
         begin
              for j:=1 to n-i+1 do                   {деление матрицы побочной диагональю}   
                  begin
                       write(a[i,j]:2, ' ');             {вывод чисел на экран}
                  end;
              writeln                                {выравнивание матрицы}
         end;
end;
//------Тело программы------------------------------------------
begin
     cls;                           {очистка экрана}
     input;                         {процедура ввода}
     output;                        {процедура вывода}
end.

var a:array[0..20,0..20] of integer;       {îáúÿâëåíèå ìàññèâà}

unit massivkurs;
interface
 type
     matrix=array[1..20,1..20] of integer;       {объявление массива} 
procedure init(var a: matrix; n: integer);       {наименование процедуры, формальные параметры}
procedure output(a: matrix; n: integer);         {наименование процедуры, формальные параметры} 
implementation
//--------Процедура ввода--------------------------------------
procedure init(var a: matrix; n: integer);          {наименование процедуры, формальные параметры}
   var i,j: integer;               {объявление переменных}              
begin
  for i:=1 to n do                               {запуск цикла по i (строки)}
      for j:=1 to n do                           {запуск цикла по j (столбцы)}
          readln(a[i,j]);                        {заполнение матрицы по строкам/столбцам}
          for i:=1 to n do                       {запуск цикла по i (строки)}
         begin
              for j:=1 to n do      {запуск цикла по j (столбцы)}
              write(a[i,j]:3);      {вывод чисел на экран}
              writeln;              {выравнивание матрицы}
         end;
end;
//------Процедура вывода--------------------------------------- 
procedure output(a: matrix; n: integer);           {наименование процедуры, формальные параметры}
   var i,j: integer;               {объявление переменных} 
begin 
 for i:=1 to n do                          {запуск цикла по n}
     begin
          for j:=1 to n-i+1 do                   {деление матрицы побочной диагональю}   
              begin
                   write(a[i,j]:2, ' ');             {вывод чисел на экран}
              end;
          writeln                                {выравнивание матрицы}
          end;
     end;
end.

uses massivkurs;
var
   a:matrix;           {объявление массива}
   n:integer;          {объявление переменной}
begin
     readln(n);        {ввод колличества строк и столбцов}
     init(a,n);        {процедура ввода}
     output(a,n);      {процедура вывода}
end.