c
o
d
e
41752;
r
e
a
l
p
r
o
c
e
d
u
r
e
PHIDENS(X);
v
a
l
u
e
X; PHIDENS:= .39894228040143 × EXP(- X × X / 2);
e
o
p