A Beispui: function Grod(Eingabe: integer): boolean; begin if Eingabe = 0 then result := true else result := Ungrod(Eingabe - 1); end; function Ungrod(Eingabe: integer): boolean; begin if Eingabe = 0 then result := false else result := Grod(Eingabe - 1); end; A Zoi is ungrod, wenn de Zoi - 1 grod is und umkehrt.