HOW TO RETURN width n:
    SELECT:
        n<10: RETURN 1
        ELSE: RETURN 1 + width floor (n/10)

HOW TO DISPLAY A FLOYD TRIANGLE WITH lines LINES:
    PUT lines * (lines+1)/2 IN maxno
    PUT 1 IN n
    FOR line IN {1..lines}:
        FOR col IN {1..line}:
            WRITE n >> (1 + width (maxno - lines + col))
            PUT n+1 IN n
        WRITE /

DISPLAY A FLOYD TRIANGLE WITH 5 LINES
WRITE /
DISPLAY A FLOYD TRIANGLE WITH 14 LINES
WRITE /