Здесь приведен программный код на BASIC для решения данной задачи:

10 INPUT "Введите последовательность чисел, разделенных символом: ", Seq$
20 LET MinNum = 9999999
30 LET Num = ""
40 FOR i = 1 TO LEN(Seq$)
50 IF MID$(Seq$, i, 1) <> " " AND VAL(MID$(Seq$, i, 1)) <> 0 THEN
60 LET Num = Num + MID$(Seq$, i, 1)
70 ELSE
80 IF Num <> "" THEN
90 IF VAL(Num) < MinNum THEN
100 LET MinNum = VAL(Num)
110 END IF
120 LET Num = ""
130 END IF
140 END IF
150 NEXT i
160 PRINT "Порядковый номер наименьшего числа: "; MinNum

После ввода последовательности чисел, разделенных символом, программа выведет порядковый номер наименьшего из них.