[Maxell]

For i to n do
begin
For j=1 to n do
begin
If i=j then a[i,j]:=1;
If i=(j-n-1) then a[i,j]:=1;
if (i=j) and (i=n/2) then a[i,j]:=0;
end;
end;