program baigiai;
uses crt;
var i,n,x,dem:integer;
A: array[1..100] of integer;
begin
write(' nhap so phan tu co trong mang='); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:=1 to n do
write(A[i]);
write('nhap x='); readln(x);
if A[i]=x then
dem:=dem+1;
write('so phan tu bang ',x,' la',dem);
readln;
end.