题目描述

读入一个整数n（n<100）,输出一个n*n的方阵。 对角线是1，对角线向右上逐渐递增，左下为空格，每个数场宽为5。

输入

一个整数n

输出

n*n的方阵

样例输入

4

样例输出

1 2 3 4 1 2 3 1 2 1

提示

 

来源

 

 

[ ][ ][ ]

 

 

 

var a:

array[

1..

110,

1..

110] 

of longint;

    i,j,n:longint;

begin

    readln(n);

    

for i:=

1 

to n 

do

        

for j:=

1 

to n 

do

            a[i,j]:=j-i+

1;

    

for i:=

1 

to n 

do

    

begin

        

for j:=

1 

to n 

do

            

if a[i,j]<=

0 

then write(

'':

5) 

else write(a[i,j]:

5);

        writeln;

    

end;

end.