Uses crt;
Var T:array[1..100] of longint;
i, n, k, dk: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('Nhap T[',i,']: ');
Readln(T[i]);
End;
Write('Nhap k: '); readln(k);
dk:=0;
FOr i:=1 to n do if T[i]=k then inc(dk);
Writeln(k,' xuat hien ',dk,' lan');
Readln
End.