Программка на PascalABC.net + блок схемаЗаполнить двумерный массив случайным образом и

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=MatrRandom(5,5,-99,99); mas.Println;

  var b:=mas.ElementsByCol.Where(t-gt;(tgt;5) and (t mod 3 =0)); 

  var c:=b.Aggregate(biginteger(1),(x,y)-gt;x*y);

  Writeln('Творенье =',c)

end.
Как в школе учат :

const n=5; m=5;

var 

a,b,c,i,j:integer;

mas:Array [1..n,1..m] of integer;

begin

randomize;

for  i:=1 to n do

 for  j:=1 to m do

 mas[i,j]:=random(100);

 c:=1;

  for i:=1 to n do

 for  j:=1 to m do

 if (mas[i,j]gt;5) and (mas[i,j] mod 3 =0 ) then

 c:=c*mas[i,j];

   Writeln('Творение =',c);

   end.