DECLARE FUNCTION fact! (a!)
CLS
INPUT p
p = p - 1
FOR i = 0 TO p
   FOR j = 0 TO p - i
      PRINT "  ";
   NEXT j
   FOR k = 0 TO i
      PRINT USING "##"; fact(i) / (fact(k) * fact(i - k));
      PRINT "  ";
   NEXT k
PRINT
PRINT
NEXT i
END

FUNCTION fact (a)
l = 1
FOR j = 1 TO a
   l = l * j
NEXT j
fact = l

END FUNCTION