17 lines
264 B
Text
17 lines
264 B
Text
PROGRAM PASCAL_TRIANGLE
|
|
|
|
PROCEDURE PASCAL(R%)
|
|
LOCAL I%,C%,K%
|
|
FOR I%=0 TO R%-1 DO
|
|
C%=1
|
|
FOR K%=0 TO I% DO
|
|
WRITE("###";C%;)
|
|
C%=(C%*(I%-K%)) DIV (K%+1)
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
PASCAL(9)
|
|
END PROGRAM
|