program qq;
uses crt;
var a:array[1..7,1..7] of integer;
b:array[1..49] of integer;
i,j,k,t,x,c:integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(20);
for i:=1 to 7 do
begin
writeln;
for j:=1 to 7 do
write(a[i,j]:4);
end;
begin
writeln;
writeln;
x:=1;
for j:=1 to 7 do begin
writeln;
for i:=1 to 7 do
begin
b[x]:=a[i,j];
write(b[x]:4);
x:=x+1;
end; end;


end;
end.