Посчитать среднее арифметическое чисел кратных двум, которые находятся на главной диагонали матрицы

var
  A: array[1..20, 1..20] of integer;
  n, i, j, count: byte;
  S: integer;
  
begin
  n := 3 + random(18);
  S := 0;
  count := 0;
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := random(20) - 10;
      write(a[i, j]:4);
      if (i = j) then
        if odd(a[i, j] + 1) then begin
          S := S + a[i, j];
          inc(count)
        end
    end;
    writeln
  end;
  writeln;
  if count > 0 then writeln('Среднее арифметическое четных чисел на главной диагонали: ', S / count:0:3)
  else writeln('На главной диагонали четных чисел нет')
end.

a[i, j] := -10+random(20);

var
  A: array[1..20, 1..20] of integer;
  n, i, j, count: byte;
  S: integer;
  
begin
  n := 3 + random(18);
  S := 0;
  count := 0;
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := -10 + random(20);
      write(a[i, j]:4);
      if (i = j) then
        if odd(a[i, j] + 1) then begin
          S := S + a[i, j];
          inc(count)
        end
    end;
    writeln
  end;
  writeln;
  if count > 0 then writeln('Среднее арифметическое четных ', 
      'чисел на главной диагонали: ', S / count:0:3)
  else writeln('На главной диагонали четных чисел нет');
  readln
end.