function fn(n:integer):integer; begin if n〈1 then fn:=0 else if n=1 then fn:= n ; else fn:=fn( n-1 )+n; end;