用while语句计算1到5阶乘的和

问题描述:

用while语句计算1到5阶乘的和

var
ans,i:longint;
begin
ans:=0; i:=1;
while i