CLS
       PRINT TAB(12);
       PRINT “Определение суммы цифр числа, ”;
       PRINT “цифры третьего разряда ”
       PRINT TAB(14); “и количества повторений ”;
       PRINT “заданной цифры.”
       PRINT
10 : PRINT TAB(10); “Введите натуральное число…”;
       INPUT “”, D
       PRINT
       IF D<0 AND INT(D)<>D THEN
            PRINT TAB(8);
            PRINT “Число не является натуральным. ”;
            PRINT TAB(8);
            PRINT “Вы ввели отрицательное дробное число.”
            GOTO 10
       END IF
       IF D<0 THEN
            PRINT TAB(8); 
            PRINT “Число не является натуральным. ”;
            PRINT TAB(8);
            PRINT “Вы ввели отрицательное число. ”
            GOTO 10
       END IF
       IF INT(D)<>D THEN
            PRINT TAB(8);
            PRINT “Число не является натуральным. ”;
            PRINT TAB(8);
            PRINT “Вы ввели дробное число.”
            GOTO 10
       END IF
       A$=STR$(D)
       B=LEN(A$)
       DIM N(B) AS STRING
       DIM M(B) AS INTEGER

       FOR I=1 TO LEN(A$)
            SUM=SUM+VAL(MID$(A$, I, 1))
       NEXT I
       PRINT TAB(10); “Сумма цифр числа равна ”; SUM
       PRINT 
       IF D<100 THEN
            PRINT TAB(10); “Цифра третьего разряда отсутствует ”
       ELSE
            PRINT TAB(10);
       PRINT “Цифра третьего разряда ”; VAL(MID$(A$, LEN(A$)-2, 1))
       END IF
       PRINT  
       PRINT TAB(10); “Введите искомую цифру…”;
       INPUT “”, X
       FOR I=1 TO B
            N(I)=MID$(A$, I, 1)
            M(I)=VAL(N(I))
       NEXT I
       FOR I=2 TO B
            IF M(I)=X THEN K=K+1
       NEXT I
       PRINT 
       IF K=0 THEN
            PRINT TAB(10); “Данная цифра в числе отсутствует”
       ELSE
            PRINT TAB(10); 
            PRINT “Количество повторений заданной цифры в числе”; K
       END IF 
       END