PROGRAM PROJECT
      DIMENSION A(225), B(225)
      DATA A /25*1.0,25*2.0,25*3.0,25*4.0,
     X 25*3.0,25*2.0,25*1.0,25*0.0,25*-1.0/
      OPEN (6,FILE='PROJECT.DAT',STATUS='NEW')
      DO 10 J=1,225
      B(J+2) = A(J)/A(J+1)
   10 CONTINUE
      CALL WRITERS (B)
      END
      SUBROUTINE WRITER (B)
      DIMENSION B(225)
      WRITE (6,20) (J,B(J), J=1,225)
  20  FORMAT (6(I4,1X, F6.4))
      RETURN
      END