function a=pom_fce(alfa,x);
a=1; 
for i=1:max(size(x))
  a=a*(alfa-x(i));
end;  












