Значение элементов двумерного целочисленного массива В, оба индекса которого меняются в пределах от 1 до 12, задаются

Допишем программу и исполним её в компиляторе:

var b: array[1..100, 1..100] of integer;

k, x, n: integer;

begin

В[1,1]:=2;

For k:=2 to 12 do

For n:=1 to k do

Begin

B[k,n]:=n*k-B[k-1,n];

B[n,k]:=B[k,n];

End;

for k := 1 to 12 do

for n := 1 to k do if b[n,k] mod 2 = 0 then x := x + 1;

writeln(x);

end.

На выходе программа вывела число 39.