Помогите пожалуйста!!! Вычислить суммы квадратов нечётных чисел случайно сгенерированных двумерным массивом (от 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