паскаль абс написать программу вычисления произведения положительных элементов третьей строки двумерного массива целых чисел паскаль абс

Var
  a: Array[1..30,1..30] of Integer; 
n,p, i,j: Integer;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin 
 For j:=1 to n do
 begin 
read(a[i,j]); 
 end; 
 Writeln;
   end; 
p:=1;
 for j:=1 to n do 
if  (a[3,j]>0)
 then

p:=p*a[3,j]; 
writeln('p=',p); 
readln;
 end.