Const
 Nmax=12;

var
 i,j,k,n:integer;
 m:Extended;
 c:array[1..Nmax,1..Nmax] of integer;

begin
 write('Enter the matrix dimension (n<=',Nmax,'): ');
 readln(n);
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     c[i,j]:=-10+random(21);
     Write(c[i,j]:5);
    end;
   writeln;
  end;

 k:=0;
 m:=1;
 for i:=2 to n do
  for j:=1 to i-1 do
   begin
    if c[i,j]=0 then Inc(k);
    if c[i,j]>0 then m:=m*c[i,j];
   end;

 writeln('***************************************** ');
 writeln('Number of zero elements = ',k);
 writeln('Product of positive elements = ',m:0:0);
 Readln
end.