program dem_xuat_hien;
uses crt;
var A:array[1..10000] of integer;
n,i,x,d:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' cua day: '); readln(A[i]);
end;
write('Day so nguyen do la: ');
for i:=1 to n do
write(A[i],' ');
writeln;
write('Nhap so nguyen x: '); readln(x);
d:=0;
for i:=1 to n do
if x=A[i] then d:=d+1;
write('So lan xuat hien cua ',x,' la: ',d);
readln;
end.