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

Решение задачи:var i, j: byte; a: array[1..100,1..100] of integer; n, k, pr: integer;beginwrite(\'Введите размерность n (n>=3): \');readln(n); randomize;k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(9)-4; write(a[i,j]:5); if(i=3)and(a[i,j]>0) then k:=k+1; end; writeln; end; writeln;if k=0 then write(\'Ответ: в третьей строке массива нет положительных элементов.\') else begin pr:=1; for j:=1 to n do if(a[3,j]>0) then pr:=pr*a[3,j]; writeln(\'Ответ: произведение положительных элементов третьей строки = \',pr); end;end.