niveskrpon Const N=3;
M=3;
var X:array [1..N, 1..M] of integer;
I, J:integer;

begin

randomize;
for i:=1 to N do
for j:=1 to M do
x [I, J]:=Random(100)-100;
for i:=1 to N do

begin
for j:=1 to M do
write (' ',x[I,J]);
writeln
end;

readln

end.