Prüfer: Daniel, Lutz. Fragen nur von Daniel
H: 0 = 1
#+BEGIN_EXAMPLE { y = n } X := 1; while (y > 0) then x := y * x; y := y - 1 end { x = n! }