Program hotrotinhoc;
var d,i,n,k: integer;
a: array[1..32000] of integer;
begin
write('n='); readln(n);
write('k='); readln(k);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if a[i]=k then inc(d);
if d>0 then write('Trong day co phan tu bang k') else write('Trong day khong co phan tu bang k');
readln
end.