Task

Produce a formatted   12×12   multiplication table of the kind memorized by rote when in primary (or elementary) school.



Only print the top half triangle of products.




WRITE(Row=1) " x   1   2   3   4   5   6   7   8   9  10  11  12"
DO line = 1, 12
  WRITE(Row=line+2, Format='i2') line
  DO col = line, 12
    WRITE(Row=line+2, Column=4*col, Format='i3') line*col
  ENDDO
ENDDO