Даны две квадратные матрицы.Напечатать квадрат той из них,в который наименьший след.

uses crt;
const n=15;
type Tmatr=array[1..n,1..n] of real;
 
procedure Vvod(var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=10*random-4;
end;
procedure Vyvod(var mt:Tmatr;c:char);
var i,j:byte;
begin
writeln('Matrica ',c,':');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:5:1);
  writeln;
 end;
end;
function Sled(mt:Tmatr):real;
var i,j:byte;
    sum:real;
begin
sum:=0;
for i:=1 to n do
sum:=sum+mt[i,i];
Sled:=sum;
end;
 
var a,b,c:Tmatr;
    max:real;
    ch:char;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'A');
writeln('Sled A=',Sled(a):0:2);
readln;
Vvod(b);
Vyvod(b,'B');
writeln('Sled B=',Sled(b):0:2);
readln;
Vvod(c);
Vyvod(c,'C');
writeln('Sled C=',Sled(c):0:2);
readln;
max:=Sled(a);
ch:='A';
if Sled(b)>max then
  begin
    max:=Sled(b);
    ch:='B';
  end;
if Sled(c)>max then
  begin
    max:=Sled(c);
    ch:='C';
  end;
write('Maximalnyj sled imeet ');
case ch of
'A':Vyvod(a,ch);
'B':Vyvod(b,ch);
'C':Vyvod(c,ch);
end;
readln
end.

uses crt;
const n=10;
type matr=array[1..n,1..n] of real;
procedure Vvod(var mt:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=9*random;
end;
 
procedure Vyvod(var mt:matr; s:string);
var i,j:byte;
begin
writeln('Матрица ',s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:7:1);
  writeln;
 end;
writeln;
end;
 
function Sled(mt:matr):real;
var sm:real;
    i:byte;
begin
sm:=0;
for i:=1 to n do
sm:=sm+mt[i,i];
Sled:=sm;
end;
 
procedure Kvadrat(m1:matr;var m2:matr);
var k,j,i:byte;
begin
for k:=1 to n do
for j:=1 to n do
   begin
     m2[k,j]:=0;
     for i:=1 to n do
     m2[k,j]:=m2[k,j]+m1[k,i]*m1[i,j];
   end;
end;
 
var a,b,c:matr;
    i,j,m:byte;
    s:string;
begin
clrscr;
randomize;
Vvod(a);
Vvod(b);
Vyvod(a,'A:');
writeln('След матрицы А=',Sled(a):0:1);
writeln('Нажмите Enter...');
readln;
Vyvod(b,'B:');
writeln('След матрицы B=',Sled(b):0:1);
writeln('Нажмите Enter...');
readln;
if Sled(a)>Sled(b)then
 begin
  s:='C=A^2:';
  Kvadrat(a,c);
  Vyvod(c,s);
 end
else
 begin
  s:='C=A^2:';
  Kvadrat(a,c);
  Vyvod(c,s);
 end;
readln
end.