var

A:array[1..20] of integer;

i,n,x,d:integer;

begin

repeat

write('nhapsophantucuamang');

readln(n);

until (n>=1) and (n<=20);

write('nhapmang');

for i:=1 to n do

begin

write('A[',i,']=');

readln(a[i]);

end;

write('nhapx');

readln(x);

d:=0;

for i:=1 to n do

if A[i] =x then

d:=d+1;

write('solanxxuathienla:',d);

readln;

end.