Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.