program MatrixOperations;

const
MAX_SIZE = 100;

type
Matrix = array[1..MAX_SIZE, 1..MAX_SIZE] of Real;

var
B: Matrix;
m, i, j: Integer;
sum, diff, result: Real;

procedure ReadMatrix(var B: Matrix; m: Integer);
var
i, j: Integer;
begin
for i := 1 to m do
for j := 1 to m do
ReadLn(B[i, j]);
end;

function CalculateSum(B: Matrix; m: Integer): Real;
var
i, j: Integer;
sum: Real;
begin
sum := 0;
for i := 1 to m do
for j := 1 to m do
sum := sum + B[i, j];
CalculateSum := sum;
end;

function CalculateDiff(B: Matrix; m: Integer): Real;
var
i, j: Integer;
diff: Real;
begin
diff := 0;
for i := 1 to m do
for j := 1 to m do
diff := diff - B[i, j];
CalculateDiff := diff;
end;

begin
WriteLn('Введите размерность матрицы: ');
ReadLn(m);

WriteLn('Введите элементы матрицы: ');
ReadMatrix(B, m);

sum := CalculateSum(B, m);
diff := CalculateDiff(B, m);

result := sum * diff;

WriteLn('Произведение суммы всех элементов матрицы и их разности: ', result);
end.