data cfb;
array num(9) _temporary_ (1,2,3,4,5,6,7,8,9);
array n(9) $;
do i=1 to dim(num);
        do j=1 to i;
                n(j)=cats(num(j),'*',num(i),'=',num(j)*num(i));
                put +1 n(j)@;
        end;
        put;
end;