Помогите решить задачу в Basic

Лови:
CLS
INPUT "Vvedite 4islo elementov n>0: ", n
DIM A(n), B(n)
FOR i = 1 TO n
PRINT "Vvedite " + STR$(i) + "-i element: ";
INPUT A(i)
B(i) = A(i)
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n
IF i <> j THEN
IF A(i) = B(j) THEN B(j) = 1 / 2
END IF
NEXT j
NEXT i
PRINT "Vyvodim raznye elementy celo4islennogo massiva A(n):"
FOR i = 1 TO n
IF B(i) <> 1 / 2 THEN PRINT B(i)
NEXT i

создаем второй массив

цыкл с первого элемента первого массива до последнего
цыкл с первого элемента второго массива до последнего
для каждого элемента проверяем есть ли он во втором массиве, если нет, то добавляем его во второй массив
конец цыкла
конец цыкла

а теперь переведите это на basic

Вот еще один вариант решения, как мне представляется более простой:
Private Sub Form_Load()
'Указываем типы переменных
Dim A() As Integer
Dim b() As Integer
Dim i, n As Integer
Dim st, test, test1, sumbol As String
'для генерации РАЗНЫХ случайных чисел (заполню ими массив А)
Randomize

n = InputBox("Число элементов")
'Задали размер массива А
ReDim A(n)
'ЭЗаполнили его случайными целыми числами
For i = 1 To n
A(i) = CInt(Rnd * 10)
test = test + Str(A(i)) + Chr(13)
Next i
'MsgBox test
'Проверили сколько разных чисел в массиве
'Составили строку st из уникальных символов разделив их символом хм.. . конца строки
For i = 1 To n
If InStr(1, st, Str(A(i))) = 0 Then
n1 = n1 + 1
st = st + Str(A(i)) + Chr(13)
End If
Next i
'MsgBox ("Nb=" + Str(n1))
'задали размер массива b
ReDim b(n1)
sumbol = ""
'Выделяем из строки символы

For i = 1 To Len(st)
ss = Mid(st, i, 1)
If Asc(ss) <> 13 Then
sumbol = sumbol + ss
Else
'и заносим их в массив b
numB = numB + 1
'MsgBox (sumbol)
b(numB) = Val(sumbol)
sumbol = ""
End If
Next i
'Готово! массив заполнен

'это нужно для вывода результатов в vb
For i = 1 To n1
test1 = test1 + Str(b(i)) + Chr(13)
Next i

MsgBox ("finish:" + Chr(13) + test + Chr(13) + test1)
End Sub

Т. к. версия бейсика неизвестна, сделал в VB 6/ Если нужно запускать в досе то надо заменить inputbox на input, msgbox все убрать и вывести в конце оба массива с помощью циклов

Успехов