program uzd3;
const n=2;
m=10;
k=100;
var mas:array[1..n,1..m] of integer;
i,j:integer;
begin randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=randkom(k);