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