data test;
     do i = 1 to 1000;
     x = int(ranuni(12)*20);
  y = sqrt(x);
  if mod(x,2) = 0 and x ^= 0 and y> 3 then do;
     z = log(y);
   output;
  end;
end;
run;
proc print data=test; run;

学习一下这个语句，if then do

data test2;
      do i = 1 to 20;
        if mod(i,2)=0 then do;
                   x=i;
                   y=sqrt(x);
                   output;
             end;
                if y>3 then z=log(y);
           end;
          drop i;
run;
proc print data=test2; run;