Functia Manna Pnueli recursiv
>
program manna_pnueli; var x:integer; function manna(x:integer):integer; begin if x>=12 then manna:=x-1 else manna:=manna(manna(x+2)); end; begin write('x=');readln(x); writeln(manna(x)); readln; end. {PascalZone.uv.ro} 