begin
x[ 1 , 1 ]:= 0 ;
x[ 1 , 2 ]:= 0 ;
x[ 1 , 3 ]:= 0 ;
x[ 1 , 4 ]:= 0 ;
x[ 2 , 1 ]:= 0 ;
x[ 2 , 2 ]:= 0 ;
x[ 2 , 3 ]:= 0 ;
x[ 2 , 4 ]:= 1 ;
x[ 3 , 1 ]:= 0 ;
x[ 3 , 2 ]:= 0 ;
x[ 3 , 3 ]:= 1 ;
x[ 3 , 4 ]:= 0 ;
x[ 4 , 1 ]:= 0 ;
x[ 4 , 2 ]:= 0 ;
x[ 4 , 3 ]:= 1 ;
x[ 4 , 4 ]:= 1 ;
x[ 5 , 1 ]:= 0 ;
x[ 5 , 2 ]:= 1 ;
x[ 5 , 3 ]:= 0 ;
x[ 5 , 4 ]:= 0 ;
x[ 6 , 1 ]:= 0 ;
x[ 6 , 2 ]:= 1 ;
x[ 6 , 3 ]:= 0 ;
x[ 6 , 4 ]:= 1 ;
x[ 7 , 1 ]:= 0 ;
x[ 7 , 2 ]:= 1 ;
x[ 7 , 3 ]:= 1 ;
x[ 7 , 4 ]:= 0 ;
x[ 8 , 1 ]:= 0 ;
x[ 8 , 2 ]:= 1 ;
x[ 8 , 3 ]:= 1 ;
x[ 8 , 4 ]:= 1 ;
x[ 9 , 1 ]:= 1 ;
x[ 9 , 2 ]:= 0 ;
x[ 9 , 3 ]:= 0 ;
x[ 9 , 4 ]:= 0 ;
x[ 10 , 1 ]:= 1 ;
x[ 10 , 2 ]:= 0 ;
x[ 10 , 3 ]:= 0 ;
x[ 10 , 4 ]:= 1 ;
x[ 11 , 1 ]:= 1 ;
x[ 11 , 2 ]:= 0 ;
x[ 11 , 3 ]:= 1 ;
x[ 11 , 4 ]:= 0 ;
x[ 12 , 1 ]:= 1 ;
x[ 12 , 2 ]:= 0 ;
x[ 12 , 3 ]:= 1 ;
x[ 12 , 4 ]:= 1 ;
x[ 13 , 1 ]:= 1 ;
x[ 13 , 2 ]:= 1 ;
x[ 13 , 3 ]:= 0 ;
x[ 13 , 4 ]:= 0 ;
x[ 14 , 1 ]:= 1 ;
x[ 14 , 2 ]:= 1 ;
x[ 14 , 3 ]:= 0 ;
x[ 14 , 4 ]:= 1 ;
x[ 15 , 1 ]:= 1 ;
x[ 15 , 2 ]:= 1 ;
x[ 15 , 3 ]:= 1 ;
x[ 15 , 4 ]:= 0 ;
x[ 16 , 1 ]:= 1 ;
x[ 16 , 2 ]:= 1 ;
x[ 16 , 3 ]:= 1 ;
x[ 16 , 4 ]:= 1 ;

program oper_matr;
const
strok= 10 ;
stolb= 10 ;
var
a : array[ 1 ..strok,  1 ..stolb] of integer;
i, j, k, str, stb, f ,p : integer;
procedure form_matr;
begin
for i:= 1  to str do
for j:= 1  to stb do
begin
write('Введите значение элемента ',i,'-й строки и ',j,'-го столбца: ');
readln(a[i,j]);
end;
end;
procedure vivod_matr;
begin
for i:= 1  to str do begin
for j:= 1  to stb do begin
write(a[i,j],' ');
end;
writeln;
end;
end;
begin
write('Введите количество строк квадратной матрицы (не более 10): ');
readln(str);
repeat
if str<= 0  then
begin
writeln('Ошибка! Количество строк должно быть больше нуля!');
write('Попробуйте снова: введите количество строк квадратной матрицы (не более 10): '); readln(str);
end;
until str> 0 ;
repeat
if str> 10  then
begin
writeln('Ошибка! Количество строк не должно превышать 10-ти!');
write('Попробуйте снова: введите количество строк квадратной матрицы (не более 10): '); readln(str);
end;
until str< 10 ;
stb:=str;
writeln('Размер квадратной матрицы ',str,' строк и ',stb,' столбцов');
form_matr;
writeln('Полученная матрица:');
vivod_matr;
p:= 1 ;
f:= 0 ;
for i:= 1  to str do
begin
k:= 0 ;
p:= 1 ;
for j:= 1  to stb do
if a[i,j]> 0  then p:=p*a[i,j]
else
begin
k:= 1 ;
end;
if k= 0  then
begin
writeln('Положительные элементы матрицы найдены в строке ',i,'. Их произведение равно ',p); f:= 1 ;
end;
end;
if f= 0  then
writeln('В данной матрице не найдено ни одного положительного элемента.');
readln;
end.