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