Даны два двумерных массива А и B вывести на экран тот из них у которого след меньше…

var a: array[1… 10,1… 10]of integer; b: array[1… 10,1… 10]of integer; i,j,s1,s2: integer; beginfor i: =1 to 10 do for j: =1 to 10 do begin a[i,j]: =random (9)+1; b[i,j]: =random (9)+1; end; for i: =1 to 10 do begin for j: =1 to 10 do write (a[i,j],'); if j=10 then writeln; end; writeln; for i: =1 to 10 do begin for j: =1 to 10 do write (b[i,j],'); if j=10 then writeln; end; for i: =1 to 10 dofor j: =1 to 10 doif i=j then begins1: =s1+a[i,j]; s2: =s2+b[i,j]; end; writeln; if s1>s2 then for i: =1 to 10 do begin for j: =1 to 10 do write (a[i,j],'); if j=10 then writeln; end elsefor i: =1 to 10 do begin for j: =1 to 10 do write (b[i,j],'); if j=10 then writeln; end; end.