procedure Floyds_triangle(integer n)
sequence widths = repeat(0,n)
    integer k = (n * (n-1))/2
    for i=1 to n do
        widths[i] = sprintf("%%%dd",length(sprintf("%d",i+k))+1)
    end for
    k = 1
    for i=1 to n do
        for j=1 to i do
            printf(1,widths[j],k)
            k += 1
        end for
        printf(1,"\n")
    end for
end procedure
Floyds_triangle(5)
Floyds_triangle(14)