fn fact(n):integer if n=0 -> result:=1 | n>0 -> result:=n*fact(n-1) fi nf; x:=fact(6)