Половина

Напишіть програму, яка заповнює масив N×N наступним чином: на бічній діагоналі стоять нулі, вище діагоналі двійки, нижче одиниці.

Вхідні дані

Задане натуральне число N (N ≤ 20).

Вихідні дані

Виведіть масив, заповнений за вказаним правилом.

Вхідні дані

3

Вихідні дані

220

201

011

program jfd;

var a :array [1..20,1..20] of integer;

i,j,n,l,l1 : integer;

BEGIN

readln (n);

l:=n-1;

for i:=1 to n do begin

for j:=1 to l do

a[i,j]:=2;

l:=l-1;

end;

l:=n;

l1:=n;

for i:=2 to n do begin

for j:=l1 to l do

a[i,j]:=1;

l1:=l1-1;

j:=j+1;

end;

for i:=1 to n do begin

for j:=1 to n do begin

write (a[i,j]);

end;

writeln;

end;

END.