Заполнить двухмерный массив:
12 24 108 120
11 23 107 119
2 14 98 110
1 13 97 109

const n=12; m=10;var a:array[1..n,1..m] of integer;i,j,k:integer;begink:=0;for j:=1 to m do for i:=n downto 1 do  begin  k:=k+1;  a[i,j]:=k;  end;for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end;end.Результат:  12  24  36  48  60  72  84  96 108 120  11  23  35  47  59  71  83  95 107 119  10  22  34  46  58  70  82  94 106 118   9  21  33  45  57  69  81  93 105 117   8  20  32  44  56  68  80  92 104 116   7  19  31  43  55  67  79  91 103 115   6  18  30  42  54  66  78  90 102 114   5  17  29  41  53  65  77  89 101 113   4  16  28  40  52  64  76  88 100 112   3  15  27  39  51  63  75  87  99 111   2  14  26  38  50  62  74  86  98 110   1  13  25  37  49  61  73  85  97 109