求救~！紧急

[HeroChen24]

请问下列程序段有什么功能~！谢谢~！
？F1（10）
RETURN
Proc F1
PARAMETERS N
P=1
K=1
DO WHILE K<=N
P=P*K
K=K+1
ENDDO
RETURN

[十豆三]

应该是这样吧，求一个数的阶乘：

?F1(10)
RETURN
Proc F1
PARAMETERS N
P=1
K=1
DO WHILE K<=N
P=P*K
K=K+1
ENDDO
RETURN P