[ART]

Код:

type 
 TMatrix = array of array of real;

function Trace(const Matrix: TMatrix): real;
var
 i: integer;
begin
 Result := 0;
 for i := 0 to High(Matrix) do
  Result := Result + Matrix[i, i];
end;

function Max(const a, b: Real): Real;
begin
 Result := b;
 if a > b then Result := a;
end;

function getMaxTrace(const A, B, C: TMatrix): Real;
var
 ATrace, BTrace, CTrace: Real;
begin
 ATrace := Trace(A);
 BTrace := Trace(B);
 CTrace := Trace(C);
 Result := Max(Max(ATrace, BTrace), CTrace);
end;