FUNCTION p(n,k)
   IF k=1 OR k=n THEN
      LET p=1
   ELSEIF n<k THEN
      LET p=0
   ELSE
      LET p=p(n-k,k)+p(n-1,k-1)
   END IF
END FUNCTION

LET pn=0
FOR i=1 TO 10 
   LET pn=pn+p(10,i)
NEXT i
PRINT 
PRINT "　自然数 10 の分割数は ";pn;" です。"
PRINT
END