В квадратной матрице найти количество четных элементов, попадающих в заштрихованную область

...
{ левый треугольник }
k:=0;
For j := 1 To n div 2 + n mod 2 Do
  For i := j To n-j+1 Do 
   if not odd(a[i,j]) then 
     inc(k);
 
{ правый треугольник }
For j := 1 To n div 2 + n mod 2 Do
  For i := j To n-j+1 Do 
   if not odd(a[i,j]) then 
     inc(k);
...

uses crt;
const max=100;
var mas: array [1..max, 1..max] of integer;
n,i,j,k,kil : integer;
a,b,c : byte;
begin
   clrscr;
   write('Input N->');
   readln (n);
   randomize;
   kil:=0;
   for i:=1 to n do
   begin
     for j:=1 to n do
     begin
       mas[i,j]:=random (99);
       write (mas[i,j]:3);
     end;
     writeln();
   end;
   writeln('Vivod po stowpchiku elementiv'); 
     writeln();
 
        if odd (n) then
         b:=1
        else
       b:=0;
     for j:=1 to n do
      begin
      if j<=n div 2+b then
      begin
        for i:=j to n+1-j do
        begin
          write (mas[i,j]:3);
          if not odd(mas[i,j]) then inc (kil);
        end;
        writeln();
        end
        else
        begin
         for i:=N-j+1 to j do
        begin
          write (mas[i,j]:3);
          if not odd(mas[i,j]) then inc (kil);
        end;
        writeln();
       end;
       end;
      writeln();
    writeln ('kilkist` parnih elementiv =',kil);
    readkey;
end.