data a;
  input x1-x5;
datalines;
1 2 3 4 5
2 3 4 5 6
4 5 6 7 8
;
data b;
  set a;
  array test(5) x1-x5;
  do i=1 to dim(test)-1; /*注意这里面的减一*/
    if i=1 then prod=test(i); /*注意如果第一个数字，那么就为起始*/
    prod=prod*test(i+1); /*迭代*/
  end;
  drop i;
run;
proc print;
run;
注意学习的地方就是迭代

Obs    x1    x2    x3    x4    x5    prod

1      1     2     3     4     5     120
2      2     3     4     5     6     720
3      4     5     6     7     8    6720