Даны две матрицы А (4x5) и B(5x6). Написать программу нахождения суммы элементов главной диагонали матрицы А*В.

1. перемножаешь матрицы (могу ошибаться )
пример процедуры:
procedure Z4(c:mas2);
var i,j,k:integer;
s2:mas2;
begin
Writeln(' Peremnozenie matric A i B');
for i:=1 to 3 do
for j:=1 to 4 do
begin
//S2[i,j]:=0;
for k:=1 to 4 do
S2[i,j]:={S2[i,j]+}a[i,k]*b[k,j];
c[i,j]:=S2[i,j];
Write(c[i,j]:5);
end;
end;
2. Дальше фильтруешь получившеюся матрицу:
for ...for ...
if i=j then
sum:=sum+a[ i, j ];

сумма элементов получившейся матрици
for i:=1 to n do
s:=s+ a [ i, i ];