CLS
PRINT TAB(15); "Определение позиции максимальной и минимальной цифры в числе"
PRINT
PRINT
PRINT
1 : PRINT TAB(30); : INPUT "Введите натуральное число...   ", b$
'INPUT "", b$
q = VAL(b$)
IF INT(q) <> q THEN
PRINT
PRINT TAB(30); "Вы ввели не натурально число"
PRINT
GOTO 1
END IF
IF q < 0 THEN
PRINT
PRINT TAB(30); "Вы ввели не натуральное число";
PRINT
PRINT
GOTO 1
END IF
c = LEN(b$)
FOR i = 1 TO c
IF c = 1 THEN
PRINT
PRINT TAB(30); "Число состоит из одной цифры": PRINT : GOTO 1
END IF
NEXT i
DIM t(c + 2)

FOR i = 1 TO c
k$ = MID$(b$, i, 1)
t(i) = VAL(k$)
NEXT i

p = 0
FOR i = 1 TO c - 1
FOR i2 = i + 1 TO c
IF t(i) = t(i2) THEN
p = 1
END IF
NEXT i2
NEXT i

IF p = 1 THEN
PRINT
PRINT TAB(30); "Цифры в числе не различны"
GOTO 1
END IF

IF c > 1 THEN
max = t(1)
FOR i = 1 TO c
IF max < t(i) THEN
max = t(i)
l = i
END IF
NEXT i
IF max = t(1) THEN
'PRINT "Порядковый номер максимальной цифры "
END IF
IF max <> t(1) THEN
PRINT
PRINT TAB(30); "Максимальная цифра числа"
PRINT TAB(30); "находится на"; l; "позиции"
END IF

min = 9
FOR i = 1 TO c
IF min > t(i) THEN
min = t(i)
l = i
END IF
NEXT i
IF min = t(1) THEN
'PRINT "Порядковый номер максимальной цифры "
END IF
'IF min <> t(1) THEN
PRINT
PRINT TAB(30); "Минимальная цифра числа"
PRINT TAB(30); "находится на"; l; "позиции"
END IF