Получить квадратную матрицу порядка n* n.

//Программка на. Паскале генерирует матрицу n*n целых чисел

//от -25до 25

const n=7;

var

i, j : integer;

mass: array [1..n,1..n] of integer;

begin

Randomize;

for i:= 1 to n do

begin

for j:= 1 to n do

Begin

mass[i, j]:= random(51)-25;

write(mass[i, j]:3, ' ');

End;

writeln;

end;

end.