uses crt;
var a: array[1..100] of integer;
i,n,d: integer;
begin
clrscr;
write ('nhap so luong phan tu: '): readln (N);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]);
end;
write ('nhap x: '): readln (x);
for i:=1 to n do if a[i]=x then inc(d);
writeln ('x xuat hien ',d,' lan');
readln;
end.