Заполнить произвольный массив размером N x N (N <10) по следующему правилу:

10000

02000

00300

00020

00001

Var

a: array[1 ... 10, 1 ... 10] of integer;

i, j, n: integer;

begin

write ('Enter n: ') ; readln (n) ;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

if i j then

a[i, j] : = 0

else if i < = N div 2 then

a[i, j] : = i

else

a[i, j] : = n - i + 1;

write (a[i, j], ' ') ;

end;

writeln () ;

end;

end.