даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора.
подсказка А(6) и В(5) длина векторов тоесть вводим их элементы и находим общие
для одного зачета не хватает.
я очень старался так и не смог помогите пожалуйста
Program pr;
Const
Nmax=10;
Var
a,b:array[1..Nmax] of integer;
i,j,n_a,n_b:integer;
Begin
Readln(n_a);
For i:=1 to n_a do
ReadLn(a[i]);
write('*******************');
Readln(n_b);
For i:=1 to n_b do
ReadLn(b[i]);
write('*******************');
For i:=1 to n_a do
For j:=1 to n_b do
if a[i] = b[j] then writeln(a[i]);
End.