function factorial(n:integer):integer; //先定义一个函数factorial返回integer
begin
result:=1; //此处用了一个result
while n>1 do //result不需要先定义,他本身就可以返回一个结果
begin
result:=result*n;//result=1*n
n:=n-1;
{此处的while n>1 do是循环判断,比如n是5的时候 5>1 result=1*5 n=5-1 再执行4>1?}
如果用if...then 就只能判断一次 不会循环 此处是不是可以用for...downto...do呢