Заполнить массив по следующему принципу - PascalABC.NET

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

Заполнить массив NxN по следующему принципу: 16 9 8 15 10 7 14 11 6 13 12 5

Решение задачи: «Заполнить массив по следующему принципу»

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

Uses 
graphabc;
var
i:=0;
v1:=16;
v2:=9;
v3:=8;
a:array [0..3,0..2] of integer;
Begin
WINDOW.Title:='ДВУМЕРНЫЕ МАССИВ ЦИКЛИЧЕСКОЕ ЗАПОЛНЕНИЕ ПО СТОЛБИКАМ СВЕРХУ ВНИЗ';
 for var i1:=0 to 3 do
 begin
 a[I1,0]:=V1;
 write('  ');
  writeln(a[I1,0]);
  a[I1,1]:=V2;
 write('              ');
  writeln(a[I1,1]);
  a[I1,2]:=V3;
 write('                               ');
  writeln(a[I1,2]);
   Dec(V1);
 INC(V2);
 Dec(V3);
 end;
 WRITELN(A);
End.

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

Установка начального значения переменной i равным 0.
Установка значений переменных v1, v2 и v3 равными 16, 9 и 8 соответственно.
Создание двумерного массива a размером 4x3.
Установка заголовка окна программы на 'ДВУМЕРНЫЕ МАССИВ ЦИКЛИЧЕСКОЕ ЗАПОЛНЕНИЕ ПО СТОЛБИКАМ СВЕРХУ ВНИЗ'.
Запуск цикла for от 0 до 3, выполняющего следующие действия:
- Заполнение первого столбца массива a значением переменной v1.
- Вывод строки отступа для улучшения читаемости.
- Вывод значения переменной v1 с заданным отступом.
- Заполнение второго столбца массива a значением переменной v2.
- Вывод строки отступа для улучшения читаемости.
- Вывод значения переменной v2 с заданным отступом.
- Заполнение третьего столбца массива a значением переменной v3.
- Вывод строки отступа для улучшения читаемости.
- Вывод значения переменной v3 с заданным отступом.
- Уменьшение значения переменной v1 на 1.
- Увеличение значения переменной v2 на 1.
- Уменьшение значения переменной v3 на 1.
Вывод массива a с помощью функции WRITELN(A).
Конец программы.