18 lines
316 B
Plaintext
18 lines
316 B
Plaintext
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
|