Вычислить суммы квадратов нечётных чисел случайно сгенерированных двумерным массивом (от 1 до 100)

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,1,100);
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  var s:=0;
  foreach var x in a do
    if x.IsEven then s+=x*x;
  Writeln('Сумма квадратов нечетных ',s);
end.

Пример
n= 5
  79  56   2  39  24
  16  91  85  61   6
  59  61  47   9  52
  71   9  43  81  66
  57  55   7  82  97
Сумма квадратов нечетных 17792

Какой язык програмирования?