Заполнить произвольный массив размером 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.