code ChOut=8, CrLf=9, IntOut=11;

func Binomial(N, K);
int  N, K;
int  M, B, I;
[M:= K;
if K>N/2 the M:= N-K;
B:=1;
for I:= 1 to M do
    B:= B*(N-M+I)/I;
return B;
];

int N, K;
[for N:= 0 to 9 do
    [for K:= 0 to 9 do
        [if N>=K then IntOut(0, Binomial(N,K));
        ChOut(0, 9\tab\);
        ];
    CrLf(0);
    ];
] \Mr. Pascal's triangle!