var n,i,k,x,y:byte;
a: array [1..25] of byte;
begin
write('Nhap n: '); readln(n);
write('Nhap k: '); readln(k);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); read(a[i]);
if a[i]<k then inc(x);
if a[i]=k then inc(y);
end;
writeln;
writeln('So phan tu <k la: ',x);
write('So phan tu =k la: ',y);
readln;
end.