Заполнить двумерный массив следующим образом:
12 24 ... 120
..................
2 14  ...  110
1 13  ...  109

var a:array[1..12,1..10] of integer;i,j:integer;beginfor i:=1 to 10 doa[1,i]:=i*12;for i:=2 to 12 do  for j:=1 to 10 do  a[i,j]:=a[i-1,j]-1;for i:=1 to 12 do begin  for j:=1 to 10 do    write(a[i,j]:4);  writeln;end;end.