Uses
CRT;
Const
nmax = 20;
var
a: array [1 .. nmax, 1 .. nmax] of integer;
i, j, n: integer;
Begin
repeat
Write('Введите размерность: ');
Readln(n);
until n in [1 .. nmax];
randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(10) - 5;
if j = n - i + 1 then
textcolor(3)
else
textcolor(0);
write(a[i, j]:3);
end;
writeln;
end;
Readln
End.