Определить есть ли среди цифр одинаковые, вывести их - QBasic

Формулировка задачи:

Помогите пожалуйста.Определить есть ли среди цифр массива одинковые, вывести их

Решение задачи: «Определить есть ли среди цифр одинаковые, вывести их»

Листинг программы

CLS
 
RANDOMIZE TIMER
INPUT "N = "; n
DIM A(1 TO n) AS INTEGER
DIM b(9) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 9 * RND
   PRINT A(i);
NEXT i: PRINT : PRINT
 
FOR i = 0 TO 9
FOR j = 1 TO n
   IF i = A(j) THEN b(i) = b(i) + 1
NEXT j, i
 
FOR i = 0 TO 9
   IF b(i) > 1 THEN k = 1
NEXT i
IF k THEN PRINT "YES";  ELSE PRINT "NO"
 
FOR i = 0 TO 9
   IF b(i) > 1 THEN PRINT i;
NEXT i
END

Объяснение кода листинга программы

CLS - очистка экрана
RANDOMIZE TIMER - установка случайного числа для повторного вызова функции
INPUTN = ; n - запрос на ввод числа для определения количества цифр
DIM A(1 TO n) AS INTEGER - создание массива A для хранения цифр
DIM b(9) AS INTEGER - создание массива b для подсчета повторяющихся цифр
FOR i = 1 TO n - цикл для заполнения массива A случайными числами от 0 до 9
A(i) = 9 * RND - присваивание случайного числа элементу массива A
PRINT A(i); - печать значения элемента массива A
NEXT i - переход к следующему элементу цикла
PRINT : PRINT - печать двух символов для разделения элементов массива A
FOR i = 0 TO 9 - цикл для подсчета повторяющихся цифр в массиве A
FOR j = 1 TO n - вложенный цикл для сравнения текущей цифры с каждой цифрой массива A
IF i = A(j) THEN b(i) = b(i) + 1 - увеличение счетчика повторяющихся цифр при совпадении
NEXT j, i - переход к следующему элементу внешнего цикла
FOR i = 0 TO 9 - цикл для вывода повторяющихся цифр
IF b(i) > 1 THEN k = 1 - присвоение переменной k значения 1 при наличии повторяющихся цифр
NEXT i - переход к следующему элементу цикла
IF k THEN PRINTYES; ELSE PRINTNO`` - вывод сообщения о наличии или отсутствии повторяющихся цифр
FOR i = 0 TO 9 - цикл для вывода повторяющихся цифр
IF b(i) > 1 THEN PRINT i; - печать значения переменной i при наличии повторяющихся цифр
END - завершение программы