const
n = 3;
m = 5;
var
a: array [1 .. n, 1 .. m] of integer;
i, j, p: integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(5) + 1;
write(' ', a[i, j]:3);
end;
writeln();
end;
writeln('--------');
p := 1;
for i := 1 to n do
for j := 1 to m do
p := p * a[i, j];
writeln('--------');
writeln(p);
end.