#include #define Mulbyandmoveto(_X_) Mul by '_X_', Move to '_X_' Main filas=0, Get arg numeric '2', Move to 'filas' i=0, r="" Loop if( var 'i' Is less than 'filas' ) c=1, j=0 Set 'c' To str, Move to 'r' Loop if ( var 'j' Is less than 'i' ) Set 'i' Minus 'j', Plus one 'j', Div it; Mul by and move to 'c' Multi cat ' r, "\t", Str(c) '; Move to 'r' ++j Back Printnl 'r' ++i Back End