Program Pzim ;
var
m:array[1..6,1..6] of integer;
a,n,i,j,l,c:integer;
Begin
a:=1;
n:=1;
l:=1;
c:=6;
while a<4 do
begin
for i:=l to c do
begin
for j:=l to c do
begin
m[i,j]:=n;
end;
end;
n:=n+1;
a:=a+1;
l:=l+1;
c:=c-1;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(m[i,j],' ');
end;
writeln;
end;
End.
