Ввести три квадратные матрицы произвольной размерности с целочисленными элементами. Определить количество чётных чисел на диагоналях для каждой матрицы и в трёх матрицах.

uses crt;
const nmax=20;{максимальный размер матрицы}
type mas=array[1..nmax,1..nmax] of integer;{тип матрицы}
Procedure Vvod(var k:byte;var x:mas;c:char);
{создание матрицы, размер, матрица, ее имя-символ, напримар А,В,С}
var i,j:integer;
Begin
writeln('Razmer matricy ',c,': ');
readln(k);
for i:=1 to k do
for j:=1 to k do
x[i,j]:=random(10)+1;
end;
Procedure Vyvod(k:byte;var x:mas;c:char);{вывод матрицы на экран}
var i,j:integer;
begin
writeln('Matrica ',c,':');
for i:=1 to k do
  begin
    for j:=1 to k do
    write(x[i,j]:4);
    writeln;
  end;
end;
function KolChet(k:byte;x:mas):byte;{подсчет четных на диагоналях}
var i,j,ch:byte;
begin
ch:=0;
for i:=1 to k do
for j:=1 to k do
if ((i=j)or(j=k-i+1))and (x[i,j] mod 2=0){если на главной или побочной диагонали и четное}
then inc(ch);{считаем}
KolChet:=ch;
end;
var a,b,c:mas;{матрицы}
    na,nb,nc:byte;{их размеры}
begin
clrscr;
randomize;
Vvod(na,a,'A');
Vvod(nb,b,'B');
Vvod(nc,c,'C');
clrscr;
Vyvod(na,a,'A');
Vyvod(nb,b,'B');
Vyvod(nc,c,'C');
writeln('Kolichestvo chetnyh na diagonalyah A=',KolChet(na,a));
writeln('Kolichestvo chetnyh na diagonalyah B=',KolChet(nb,b));
writeln('Kolichestvo chetnyh na diagonalyah C=',KolChet(nc,c));
writeln('Kolichestvo chetyh na diagonalyah 3x matric=',
         KolChet(na,a)+KolChet(nb,b)+KolChet(nc,c));
readln
end.