program FillMatrixByRule;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  N = 6; // размер
 
var
  Matrix: array[1..N, 1..N] of Integer; 
  i, j: Integer;
 
// gроцедура заполнения матрицы 
procedure FillMatrix;
begin
  // заполняем первый столбец номерами строк (1–6)
  for i := 1 to N do
    Matrix[i, 1] := i;
 
  // заполняем остальные элементы матрицы согласно таблице
  Matrix[1, 2] := 12; Matrix[1, 3] := 13; Matrix[1, 4] := 24; Matrix[1, 5] := 25; Matrix[1, 6] := 36;
  Matrix[2, 2] := 11; Matrix[2, 3] := 14; Matrix[2, 4] := 23; Matrix[2, 5] := 26; Matrix[2, 6] := 35;
  Matrix[3, 2] := 10; Matrix[3, 3] := 15; Matrix[3, 4] := 22; Matrix[3, 5] := 27; Matrix[3, 6] := 34;
  Matrix[4, 2] := 9;  Matrix[4, 3] := 16; Matrix[4, 4] := 21; Matrix[4, 5] := 28; Matrix[4, 6] := 33;
  Matrix[5, 2] := 8;  Matrix[5, 3] := 17; Matrix[5, 4] := 20; Matrix[5, 5] := 29; Matrix[5, 6] := 32;
  Matrix[6, 2] := 7;  Matrix[6, 3] := 18; Matrix[6, 4] := 19; Matrix[6, 5] := 30; Matrix[6, 6] := 31;
end;
 
// процедура вывода матрицы на экран
procedure PrintMatrix;
begin
  Writeln('Fulled matrix: ');
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(Matrix[i, j]:3); // выводим с отступом в 3 символа
    Writeln; // вереход на новую строку 
  end;
end;
 
begin
  // заполняем матрицу
  FillMatrix;
 
  // выводим матрицу
  PrintMatrix; 
 
  Readln; 
end.
 

cHJvZ3JhbSBGaWxsTWF0cml4QnlSdWxlOwoKeyRBUFBUWVBFIENPTlNPTEV9Cgp1c2VzCiAgU3lzVXRpbHM7Cgpjb25zdAogIE4gPSA2OyAvLyDRgNCw0LfQvNC10YAKCnZhcgogIE1hdHJpeDogYXJyYXlbMS4uTiwgMS4uTl0gb2YgSW50ZWdlcjsgCiAgaSwgajogSW50ZWdlcjsKCi8vIGfRgNC+0YbQtdC00YPRgNCwINC30LDQv9C+0LvQvdC10L3QuNGPINC80LDRgtGA0LjRhtGLIApwcm9jZWR1cmUgRmlsbE1hdHJpeDsKYmVnaW4KICAvLyDQt9Cw0L/QvtC70L3Rj9C10Lwg0L/QtdGA0LLRi9C5INGB0YLQvtC70LHQtdGGINC90L7QvNC10YDQsNC80Lgg0YHRgtGA0L7QuiAoMeKAkzYpCiAgZm9yIGkgOj0gMSB0byBOIGRvCiAgICBNYXRyaXhbaSwgMV0gOj0gaTsKCiAgLy8g0LfQsNC/0L7Qu9C90Y/QtdC8INC+0YHRgtCw0LvRjNC90YvQtSDRjdC70LXQvNC10L3RgtGLINC80LDRgtGA0LjRhtGLINGB0L7Qs9C70LDRgdC90L4g0YLQsNCx0LvQuNGG0LUKICBNYXRyaXhbMSwgMl0gOj0gMTI7IE1hdHJpeFsxLCAzXSA6PSAxMzsgTWF0cml4WzEsIDRdIDo9IDI0OyBNYXRyaXhbMSwgNV0gOj0gMjU7IE1hdHJpeFsxLCA2XSA6PSAzNjsKICBNYXRyaXhbMiwgMl0gOj0gMTE7IE1hdHJpeFsyLCAzXSA6PSAxNDsgTWF0cml4WzIsIDRdIDo9IDIzOyBNYXRyaXhbMiwgNV0gOj0gMjY7IE1hdHJpeFsyLCA2XSA6PSAzNTsKICBNYXRyaXhbMywgMl0gOj0gMTA7IE1hdHJpeFszLCAzXSA6PSAxNTsgTWF0cml4WzMsIDRdIDo9IDIyOyBNYXRyaXhbMywgNV0gOj0gMjc7IE1hdHJpeFszLCA2XSA6PSAzNDsKICBNYXRyaXhbNCwgMl0gOj0gOTsgIE1hdHJpeFs0LCAzXSA6PSAxNjsgTWF0cml4WzQsIDRdIDo9IDIxOyBNYXRyaXhbNCwgNV0gOj0gMjg7IE1hdHJpeFs0LCA2XSA6PSAzMzsKICBNYXRyaXhbNSwgMl0gOj0gODsgIE1hdHJpeFs1LCAzXSA6PSAxNzsgTWF0cml4WzUsIDRdIDo9IDIwOyBNYXRyaXhbNSwgNV0gOj0gMjk7IE1hdHJpeFs1LCA2XSA6PSAzMjsKICBNYXRyaXhbNiwgMl0gOj0gNzsgIE1hdHJpeFs2LCAzXSA6PSAxODsgTWF0cml4WzYsIDRdIDo9IDE5OyBNYXRyaXhbNiwgNV0gOj0gMzA7IE1hdHJpeFs2LCA2XSA6PSAzMTsKZW5kOwoKLy8g0L/RgNC+0YbQtdC00YPRgNCwINCy0YvQstC+0LTQsCDQvNCw0YLRgNC40YbRiyDQvdCwINGN0LrRgNCw0L0KcHJvY2VkdXJlIFByaW50TWF0cml4OwpiZWdpbgogIFdyaXRlbG4oJ0Z1bGxlZCBtYXRyaXg6ICcpOwogIGZvciBpIDo9IDEgdG8gTiBkbwogIGJlZ2luCiAgICBmb3IgaiA6PSAxIHRvIE4gZG8KICAgICAgV3JpdGUoTWF0cml4W2ksIGpdOjMpOyAvLyDQstGL0LLQvtC00LjQvCDRgSDQvtGC0YHRgtGD0L/QvtC8INCyIDMg0YHQuNC80LLQvtC70LAKICAgIFdyaXRlbG47IC8vINCy0LXRgNC10YXQvtC0INC90LAg0L3QvtCy0YPRjiDRgdGC0YDQvtC60YMgCiAgZW5kOwplbmQ7CgpiZWdpbgogIC8vINC30LDQv9C+0LvQvdGP0LXQvCDQvNCw0YLRgNC40YbRgwogIEZpbGxNYXRyaXg7CiAgCiAgLy8g0LLRi9Cy0L7QtNC40Lwg0LzQsNGC0YDQuNGG0YMKICBQcmludE1hdHJpeDsgCiAgCiAgUmVhZGxuOyAKZW5kLgo=

NyAyMQoxIDIgNTQ3MTUyCjEgMyA1MDkxNTcKMSA0IDUzOTI4MgoxIDUgNTQxNjQ1ICAgICAgICAgCjEgNiA0NTg0MzMKMSA3IDM4NTE3M+KAqAoyIDMgMTMxNTI4CjIgNCA5MjczNQoyIDUgMTUwNTExCjIgNiA5NDQ0MAoyIDcgMTk0NTQyCjMgNCAyMTY2MDAKMyA1IDI3MjQwMQozIDYgMTU3MTc2CjMgNyAxMjQwNzcKNCA1IDU3Nzg1CjQgNiA5NzMyMwo0IDcgMjQyMjMyCjUgNiAxMzY2NjMKNSA3IDI4Mzg2Mgo2IDcgMTQ3NDI2

7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426