В заданной матрице целых чисел С(5,6) определить среднее геометрическое элементов каждой строки.

uses wincrt;
type
   mas = array[1..10,1..10] of integer;
procedure pr(x:mas; m,n:byte);
var
  i,j,k : byte;
  geom : real;
begin
  for i:=1 to m do
     begin
        geom := 1;
        k := 0;
        for j:=1 to n do
           if x[i,j] > 0
              then
                 begin
                    k := k + 1;
                    geom := geom * x[i,j];
                 end;
        if k <> 0
           then
              begin
                 geom := exp(ln(geom)/k);
                 writeln('sred. geom ',i,'-oi stroki : ',geom:0:2);
              end
           else
             writeln('sred. geom ',i,'-oi stroki : 0');
    end;
end;
 
VAR
  x : mas;
  n,m,i,j : byte;
begin
randomize;
  write('razmer massiva : ');readln(m,n);
  writeln('massiv : ');
  for i:=1 to m do
     begin
       for j:=1 to n do
         begin
           x[i,j] := random(15)- 4;
           write(X[i,j],' ');
         end;
       writeln;
    end;
 
 pr(x,m,n);
end.