10) Двумерный массив: Найти произведение четных элементов двумерного массива.

Вот:
123456789101112131415161718192021const  n=5;var  a:array[1..n,1..n] of integer;  i,j,s:integer;begin  s:=0;  randomize;  for i:=1 to n do    begin      for j:=1 to n do        begin          a[i,j]:=random(10);          write(a[i,j]:4);          if (i+j) mod 3=0 then            s:=s+a[i,j];        end;      writeln;    end;  writeln(S=,s);end.