RosettaCodeData/Task/Multiplication-tables/Fortran/multiplication-tables-7.f
2016-12-05 22:15:40 +01:00

2 lines
60 B
Forth

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