RosettaCodeData/Task/Multiplication-tables/HicEst/multiplication-tables.hicest
2023-07-01 13:44:08 -04:00

7 lines
212 B
Text

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