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

Var  a: Array[1..30,1..30] of Integer; n,p, i,j: Integer;BEGINwriteln('n=');readln(n);Writeln('vvedite massiv:');For i:=1 to n dobegin  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.