PROGRAM KOUFWM
      DIMENSION DIME(6),ENGTH(3),NBMAX(3)
      C=0.5
      DIME(1)=1.20
      DIME(2)=1.40
      DIME(3)=1.50
      DIME(4)=1.70
      DIME(5)=2.00
      DIME(6)=2.20
      ENGTH(1)=10.0
      ENGTH(2)=8.0
      ENGTH(3)=15.0
      ITEMP=1
      DO 100 I=1,3,1
      NBMAX(I)=((ENGTH(I)-C)/(DIME(1)+C)*DIME(1))
      GO TO 10
   10 DO 200 J=1,5,1
      NB=((ENGTH(I)-C)/(DIME(J)+C)*DIME(J))
      IF (NB.LT.NBMAX(I)) NBMAX(I)=NB
      IF (NB.LT.NBMAX(I)) ITEMP=J+1
      
  200 CONTINUE
       
      WRITE(*,1000) ENGTH(I),DIME(ITEMP)
 1000 FORMAT(1X,'MAX LIGHT',1X,'FOR',1X,
     1 'WALL LENGTH',1X,'L=',1X,F5.1,'M',1X,'WE NEED',1X,
     2 'WINDOW OF',1X,F5.2,'M')
  100 CONTINUE
      STOP
      END