Даны два двумерных массива целых чисел А[5][5], В[5][5].

const n=5;
type mas=array[1..n,1..n] of integer;
function sum(a:mas):integer;
var s,i:integer;
begin
s:=a[1,1];
for i:=2 to n do
s:=s+a[i,i];
sum:=s;
end;
var a,b:mas;
    i,j,sa,sb:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
sa:=sum(a);
writeln('Сумма элементов главной диагонали=',sa);
writeln;
writeln('Массив B');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(20);
    write(b[i,j]:3);
   end;
  writeln;
 end;
sb:=sum(b);
writeln('Сумма элементов главной диагонали=',sb);
writeln;
if sa=sb then write('Суммы равны')
else if sa>sb then write('В массиве А сумма больше')
else write('В массиве B сумма больше')
end.