pascal 数列

program shulie;
var a:array[1..100,1..100]of longint;
t,k,m,n,i,j:longint;
begin
readln(n);
for t:=1 to n do
for k:=t to t+2*(n-t) do
begin
inc(j);
a[k,t]:=j;
end; {一列一列的填数}
for t:=1 to 2*n-1 do
begin
for k:=1 to n do
if a[t,k]<>0 then
write(a[t,k],' '); {输出}
writeln;
end;
end.

问题可以具体一点吗？不会只是输入、输出这些吧？如果是：
program ex(input,output);
var x:integer;
begin
read(x);
writeln('1');
writeln('2 8');
writeln('3 9 13');
writeln('4 10 14 16');
writeln('5 11 15');
writeln('6 12');
writeln('7');
end.

当n=3的时候 格式怎么像上面呢 ？？