Factorial (iterative)

procedure main()
local a,b
a:=read()
b:=factorial(a)
write(b)
end

procedure factorial(n)
local p,i
p:=1
every i:=1 to n do {
 p:=p*i
}
return p
end