В свободные клетки квадрата впишите числа, так чтобы по всем строкам, столбцам и диагоналям в сумме получилось одно и тоже число а) 12 б) 106 в)48 6 36 10 30 4 8 112 122 108 24​

Var a:array of integer;   
      i,n:integer;
begin
//Заполняем массив сл. числами и выводим
//Нумерация массива с 0
write('Число элементов массива ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
  a[i]:=random(41)-20;
  write(a[i]:4);
end;
writeln;
//Вывод номеров четных элементов
for i:=0 to n-1 do
  if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i );
end.

Тестовое решение:
Число элементов массива 10
  -5  14   3  13   4   1  18   7  12 -14
  14 номер: 1
   4 номер: 4
  18 номер: 6
  12 номер: 8
 -14 номер: 9