Pascal's triangle: Difference between revisions

=={{header|PL/I}}==

<lang PL/I>

declare (t, u)(40) fixed binary;

declare (i, n) fixed binary;

t,u = 0;

do n = 1 to 11;

u(1) = 1;

do i = 1 to n;

u(i+1) = t(i) + t(i+1);

end;

put skip edit ((u(i) do i = 1 to n)) (col(40-2*n), (n+1) f(4));

t = u;

end;

</lang>

<lang>

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

1 6 15 20 15 6 1

1 7 21 35 35 21 7 1

1 8 28 56 70 56 28 8 1

1 9 36 84 126 126 84 36 9 1

1 10 45 120 210 252 210 120 45 10 1

</lang>