даны два целочисленных вектора А(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.