this program is：

data;

s=0;

do i=1
to
10000000;

x=ranuni(0);

y=ranuni(0);

if y<exp((-1)*(x**2)) then

s=s+1;

end;

jifen=s/10000000;

put jifen;

run;