proc pascal (n : int)
    for i : 0 .. n
        var c := 1
        for k : 0 .. i
            put c : 4 ..
            c := c * (i - k) div (k + 1)
        end for
        put ""
    end for
end pascal

pascal(5)