Program brainly;
var
tablou : array[1..100, 1..100] of integer;
i,j,n,suma,produs:integer;
begin
write('Dati n:');
read(n);
writeln('Dati valorile tabloului:');
suma:=0;
produs:=1;
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,'][',j,']=');
read(tablou[i][j]);
end;
i:=2;
for j:=1 to n do
begin
if tablou[i][j] > 0 then suma:=suma+tablou[i][j];
if j = n then i:=i+2;
end;
i:=1;
for j:=1 to n do
begin
if tablou[i][j] < 5 then produs:=produs*tablou[i][j];
if j = n then i:=i+2;
end;
writeln('S=',suma);
writeln('P=',produs);
end.
