TYPE
 MTR=Array[1..4,1..4] of Integer;

Var
 A:MTR;

Procedure Read_Matr;
var
 i,j:Integer;
 f:Text;
begin
 Assign(f,'D:\matr.txt');
 ReSet(f);
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    Read(f,A[i,j]);
   ReadLn(f);
  end;
 Close(f);
end;

Procedure Out_Matr(A_om:MTR);
var
 i,j:Integer;
begin
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    Write(A_om[i,j]:8);
   WriteLn;
  end;
end;

Function Sum(A_s:MTR):Integer;
var
 i,j,S:Integer;
begin
 S:=0;
 for i:=1 to 4 do
  for j:=1 to i do
   S:=S+A_s[i,j];
 Sum:=S;
end;

BEGIN
 Read_Matr;
 Out_Matr(A);
 WriteLn;
 WriteLn('S= ',Sum(A));
 ReadLn;
END.