program matr1;
uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j,k,g,P:integer;
begin;
clrscr;
for i:=1 to n do
  for j:=1 to n do
    begin
      readln(a[i,j]); //набираем данные в матрицу
    end;
clrscr;
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:3);  //выводим ее на экран
    writeln;
  end;
  readln;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
     begin                    //считаем в кажлой строке кол-во отриц. эл-тов
       if a[i,j]<0 then k:=k+1;      
     end;                      
   if k=0 then       //если их нет, считаем произведение Р
     begin                       
       P:=1;
       for g:=1 to n do
         begin
           P:=P*a[i,g];
         end;
       writeln('Pstr',i,'=',P); //выводим Р по тем строкам, где это нужно
     end;
  end;
readln;
end.