Задаётся два массива из случайных чисел. Программа распечатывает их, а затем печатает одинаковые элементы этих массивов(если они есть) и указывает их номера — QBasic(Бейсик)

cls
dim a(10)
dim b(10)
randomize timer
for i = 1 to 10
a(i)=int(rnd(1)*50)
b(i)=int(rnd(1)*50)
next i
for i = 1 to 10
? a(i);
next i
?
for i = 1 to 10
? b(i);
next i
?
for i = 1 to 10 
if a(i)=b(i) then ? "nomer ="; i; "a("; i;")=b(";i;")=";a(i)
next i