program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
 for j:=1 to i do
  read(a[i,j]);
end;
for j:=1 to n do
begin
 for i:=1 to j do
  a[i,j]:=0;
 end;
for i:=1 to n do
begin
 for j:=1 to i do
  a[i,j]:=b[j,i];
end;
for i:=1 to n do
begin
 for j:=1 to n do
  write(b[i,j]:4);
 end;
writeln
end.

program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
for j:=1 to i do
 read(a[i,j]);
end;
for j:=1 to n do
begin
for i:=1 to j do
 b[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to i do
 b[j,i]:=a[i,j]; { !!! }
end;
for i:=1 to n do
begin
for j:=1 to n do
 write(b[i,j]:4);
end;
writeln
end.

Const n=7;                       {!}
var
a,b:array[1..n,1..n] of Integer;   {!}
i,j:integer;                                {!}
begin
for i:=1 to n do
for j:=1 to i do
 read(a[i,j]);

for j:=1 to n do
for i:=j+1 to n do    {!}
 a[j,i]:=0;               {!}
{......}

for i:=1 to n do
begin
for j:=1 to n do
 write(b[i,j]:4);
Writeln;
end;
writeln