Программа на Бейсике

[marisha12345]

Помогите, пожалуйста решить задачу в Бейсике.

Даны 3 целочисленных массива A(N), B(M) и C(L). Найти хотя бы одно число, встречающееся во всех трех массивах, если таких чисел нет, выдайте на экран соответствующее сообщение.
Буду очень благодарна!

[ololo-schoolboy]

Воть решение на BASIC:

#include<iostream>
#include<stdlib.h>
#include<time.h>

using namespace std;

void fill(int *arr, const int size)
{
	for(int i=0;i<size;++i)
		arr[i]=rand()%10;
}

int main()
{
srand(time(0));
const int N=5,M=10,L=15;
int A[N],B[M],C[L];
fill(A,N);
fill(B,M);
fill(C,L);
for(int i=0;i<N;++i)
{
	for(int j=0;j<M;++j)
	{
		if(A[i]==B[j])
		{
			for(int k=0;k<L;++k)
				if(A[i]==C[k])
				{
					cout<<A[i]<<endl;
					break;
				}
			break;
		}
	}
}
cin.get();
return 0;
}

[marisha12345]

спасибо большое)