PROGRAM CHU7_1；

FUNCTION FUN(X：INTEGER)：INTEGER； BEGIN

IF(X=0)OR(X=1)THEN FUN:=3

ELSE FUN:=X-FUN(X-2)

END； BEGIN

WRITELN(FUN(9))； READLN；

END.

输出：