uses crt;
var A : array [1 .. 100] of integer;
i, N, K, d : integer;
begin
clrscr;
d := 0;
write('Nhap N, K = '); readln(N, K);
write('Nhap day gom ', N ,' so : ');
for i := 1 to N do begin read(A[i]);
if A[i] = K then d := d + 1; end;
write('Co ', d ,' so bang K');
readln
end.