{n >0} i := n; fact := 1; while i do fact i :- i - 1 fact * i; od (fact 12 n}