Дана матрица a размером m x n, где m, n заданные натуральные числа: распечатать все элементы, стоящие в четных таблицах решить .

Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
i,j:integer;
begin
      for i:=1 to n do
           begin
                  for j:=1 to m do
                       begin
                           a[i,j]:=random(100);
                           write(a[i,j]:4);
                       end;
                 writeln;
          end;
writeln;
for i:=1 to n do
  begin
   for j:=2 to m do
       if j mod 2=0 then
           write(a[i,j]:4);
     writeln;
  end;
end.