!----------------------------------------------
INTEGER::f=1
OPEN(unit=f,file='Lab7.out')
DO 4 I=1,N
WRITE(f,*) A(I)
4 CONTINUE
CLOSE(f)
INTEGER f/1/;
OPEN(unit=f,file='Lab7.out');
DO 4 I=1,N
WRITE(f,*) A(I);
4 CONTINUE;
CLOSE(f);
OPEN(unit=1,file='Lab7.out')
DO 4 I=1,N
WRITE(1,*) A(I)
4 CONTINUE
CLOSE(1)
OPEN(4,file='Lab7.out');
DO 4 I=1,N;
WRITE(4,*) A(I);
4 CONTINUE;
CLOSE(4);