PROGRAM "pascal"
VERSION "0.0001"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  r@@ = UBYTE(INLINE$("Number of rows? "))
  FOR i@@ = 0 TO r@@ - 1
    c%% = 1
    FOR k@@ = 0 TO i@@
      PRINT FORMAT$("####", c%%);
      c%% = c%% * (i@@ - k@@) / (k@@ + 1)
    NEXT k@@
    PRINT
  NEXT i@@
END FUNCTION
END PROGRAM