Program FNG;
Uses crt;
Var A: array[1..100] of extended;
x: extended;
i,d: longint;
Begin
Clrscr;
Write('Nhap X: '); Readln(X);
d:=0;
For i:=1 to 100 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] = x then inc(d);
End;
If d=0 then Write('Khong co')
Else Write(d);
Readln
End.