4 lines
80 B
Fortran
4 lines
80 B
Fortran
DO 1 I = 1,5
|
|
1 WRITE (6,2) (666, J = 1,I)
|
|
2 FORMAT(5I1)
|
|
END
|