С     Статистика:  распределение по ...
C     Подсчет ключей для каждой номенклатуры
      CHARACTER F1(58910)*51,F1KEY(58910)*6,KEYK*6,KEYK1*6,KEY*6
      INTEGER M(50000)
      N3=11206
      OPEN(4,FILE='nsvtable.num',STATUS='OLD')
      OPEN(1,FILE='key.nmb',STATUS='new')

           DO 12 I=1,N3
           READ(4,22)F1(I),F1KEY(I)
  12       CONTINUE
  22       FORMAT(2A)
  33       FORMAT(A,I5)

C          BЫБOP OДИHAKOBЫX CTPOK
        F1KEY(N3+1)='000000'
        L=1
        M(1)=1
          KEY=F1KEY(1)
        DO 14 K=1,N3+1
         KEYK=F1KEY(K)
         KEYK1=F1KEY(K+1)
         IF(KEYK(1:6).EQ.KEYK1(1:6))THEN
         M(L)=M(L)+1
         ELSE
        WRITE(1,33)KEY,M(L)
         L=L+1
         M(L)=1
         KEY=KEYK1
         ENDIF
C       IF(K.EQ.(N3-1))GOTO 15
C       WRITE(1,33)KEY,M(L)
C       ENDIF
  14    CONTINUE
  15    CONTINUE
      CLOSE(1)
      CLOSE(4)
        END