function factorial(n=real.double)=real.double
    var i, f = real.double
    f = 1
    for i = 1 to n
        f = f * i
    next i
end = f