请问怎样编程打出如下矩阵：
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
请大神指导

直接writeln不就行了吗。

8去哪了？

直接输出这个不就可以吗

begin
write('1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7');
readln:
end.

var i,j,t,x:integer; s:array[0..10,0..10]of longint;begin readln(x); for i:=1 to x do begin s[0,i]:=1; s[x+1,i]:=1; s[i,0]:=1; s[i,x+1]:=1; end; t:=1; i:=1; j:=1; while t<=x*x do begin s[i,j]:=t; if (s[i-1,j]<>0) and(s[i+1,j]=0) and(s[i,j+1]<>0) then i:=i+1 else if (s[i,j-1]=0)and(s[i+1,j]<>0)and(s[i,j+1]<>0) then j:=j-1 else if (s[i-1,j]=0)and(s[i+1,j]<>0)and(s[i,j-1]<>0)then i:=i-1 else j:=j+1; t:=t+1 end; for i:=1 to x do begin for j:=1 to x do write(s[i,j],' '); writeln; end;end.