RosettaCodeData/Task/Multiplication-tables/Fortran/multiplication-tables-7.f
2023-07-01 13:44:08 -04:00

2 lines
60 B
Forth

WRITE(1,4) (A(J), J = 1,24)
4 FORMAT(1x,24A1)