program main
IMPLICIT none
    INTEGER :: n,copy,dig,d,I,R=0,J
    INTEGER :: NUM(10)
    PRINT *,"enter a number"
    read *,n
    copy=n
    DO I=1,10
    NUM(I)=0
    ENDDO
    do WHILE(copy>0)
    D=MOD(COPY,10)
    NUM(D+1)=NUM(D+1)+1
    copy=copy/10
    ENDDO
    DO I=1,10
    IF(NUM(I)>0) THEN
    PRINT *,"FREQUENCY OF ",I-1,"IS ",NUM(I)
    ENDIF
    ENDDO
END