var x:array[1..9] of integer;
i,p:integer;
begin
writeln('введите массив');
for i:=1 to 9 do read(x[i]);
p:=1;
for i:=1 to 9 do
if x[i]>0 then p:=p*x[i];
writeln('произвед=',p);
end.