найти сколько элементов одномерного массива А встречаются в одномерном массиве В паскаль
var a,b:array [1..100] of integer; an,bn,i,j,n:integer; Begin read(an,bn); for i:= 1 to an do read(a[i]); for i:= 1 to bn do read(b[i]); for i:= 1 to an do for j:= 1 to bn do if a[i]=b[j] then n:=n+1; writeln(n); End.