Рекурсивная программа для вычисления функции

[Чайник.ру]

В Паскале написать рекурсивную программу для вычисления

[Stilet]

function f(n:integer):integer;begin if n>100 then f=n-10 else f:=f(f(n+4));end;